diff --git a/GI/Gio.hs b/GI/Gio.hs --- a/GI/Gio.hs +++ b/GI/Gio.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,6 +17,10 @@ module GI.Gio.Structs , + + module Data.GI.Base , + + ) where import GI.Gio.Callbacks @@ -37,4 +42,5 @@ import GI.Gio.Types import GI.Gio.Callbacks +import Data.GI.Base diff --git a/GI/Gio/Callbacks.hs b/GI/Gio/Callbacks.hs --- a/GI/Gio/Callbacks.hs +++ b/GI/Gio/Callbacks.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -319,16 +320,16 @@ Ptr () -> Ptr Cancellable -> IO () -taskThreadFuncWrapper funptrptr _cb task source_object task_data cancellable = do +taskThreadFuncWrapper funptrptr _cb task sourceObject taskData cancellable = do task' <- (newObject Task) task - source_object' <- (newObject GObject.Object) source_object + sourceObject' <- (newObject GObject.Object) sourceObject maybeCancellable <- if cancellable == nullPtr then return Nothing else do cancellable' <- (newObject Cancellable) cancellable return $ Just cancellable' - _cb task' source_object' task_data maybeCancellable + _cb task' sourceObject' taskData maybeCancellable maybeReleaseFunPtr funptrptr -- callback SocketSourceFunc @@ -475,10 +476,10 @@ Ptr GLib.VariantType -> Ptr () -> IO (Ptr GVariant) -settingsBindSetMappingWrapper funptrptr _cb value expected_type _ = do +settingsBindSetMappingWrapper funptrptr _cb value expectedType _ = do value' <- (newBoxed GValue) value - expected_type' <- (newBoxed GLib.VariantType) expected_type - result <- _cb value' expected_type' + expectedType' <- (newBoxed GLib.VariantType) expectedType + result <- _cb value' expectedType' maybeReleaseFunPtr funptrptr result' <- refGVariant result return result' @@ -546,9 +547,9 @@ Ptr GObject.Object -> Ptr () -> IO CInt -pollableSourceFuncWrapper funptrptr _cb pollable_stream _ = do - pollable_stream' <- (newObject GObject.Object) pollable_stream - result <- _cb pollable_stream' +pollableSourceFuncWrapper funptrptr _cb pollableStream _ = do + pollableStream' <- (newObject GObject.Object) pollableStream + result <- _cb pollableStream' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -626,9 +627,9 @@ Int64 -> Ptr () -> IO CInt -fileReadMoreCallbackWrapper funptrptr _cb file_contents file_size callback_data = do - file_contents' <- cstringToText file_contents - result <- _cb file_contents' file_size callback_data +fileReadMoreCallbackWrapper funptrptr _cb fileContents fileSize callbackData = do + fileContents' <- cstringToText fileContents + result <- _cb fileContents' fileSize callbackData maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -662,8 +663,8 @@ Int64 -> Ptr () -> IO () -fileProgressCallbackWrapper funptrptr _cb current_num_bytes total_num_bytes _ = do - _cb current_num_bytes total_num_bytes +fileProgressCallbackWrapper funptrptr _cb currentNumBytes totalNumBytes _ = do + _cb currentNumBytes totalNumBytes maybeReleaseFunPtr funptrptr -- callback FileMeasureProgressCallback @@ -701,9 +702,9 @@ Word64 -> Ptr () -> IO () -fileMeasureProgressCallbackWrapper funptrptr _cb reporting current_size num_dirs num_files _ = do +fileMeasureProgressCallbackWrapper funptrptr _cb reporting currentSize numDirs numFiles _ = do let reporting' = (/= 0) reporting - _cb reporting' current_size num_dirs num_files + _cb reporting' currentSize numDirs numFiles maybeReleaseFunPtr funptrptr -- callback DesktopAppLaunchCallback @@ -775,12 +776,12 @@ CString -> Ptr () -> IO (Ptr DBusInterfaceInfo) -dBusSubtreeIntrospectFuncWrapper funptrptr _cb connection sender object_path node _ = do +dBusSubtreeIntrospectFuncWrapper funptrptr _cb connection sender objectPath node _ = do connection' <- (newObject DBusConnection) connection sender' <- cstringToText sender - object_path' <- cstringToText object_path + objectPath' <- cstringToText objectPath node' <- cstringToText node - result <- _cb connection' sender' object_path' node' + result <- _cb connection' sender' objectPath' node' maybeReleaseFunPtr funptrptr result' <- copyBoxed result return result' @@ -826,13 +827,13 @@ Ptr () -> Ptr () -> IO (Ptr DBusInterfaceVTable) -dBusSubtreeDispatchFuncWrapper funptrptr _cb connection sender object_path interface_name node out_user_data _ = do +dBusSubtreeDispatchFuncWrapper funptrptr _cb connection sender objectPath interfaceName node outUserData _ = do connection' <- (newObject DBusConnection) connection sender' <- cstringToText sender - object_path' <- cstringToText object_path - interface_name' <- cstringToText interface_name + objectPath' <- cstringToText objectPath + interfaceName' <- cstringToText interfaceName node' <- cstringToText node - result <- _cb connection' sender' object_path' interface_name' node' out_user_data + result <- _cb connection' sender' objectPath' interfaceName' node' outUserData maybeReleaseFunPtr funptrptr let result' = unsafeManagedPtrGetPtr result return result' @@ -878,14 +879,14 @@ Ptr GVariant -> Ptr () -> IO () -dBusSignalCallbackWrapper funptrptr _cb connection sender_name object_path interface_name signal_name parameters _ = do +dBusSignalCallbackWrapper funptrptr _cb connection senderName objectPath interfaceName signalName parameters _ = do connection' <- (newObject DBusConnection) connection - sender_name' <- cstringToText sender_name - object_path' <- cstringToText object_path - interface_name' <- cstringToText interface_name - signal_name' <- cstringToText signal_name + senderName' <- cstringToText senderName + objectPath' <- cstringToText objectPath + interfaceName' <- cstringToText interfaceName + signalName' <- cstringToText signalName parameters' <- newGVariantFromPtr parameters - _cb connection' sender_name' object_path' interface_name' signal_name' parameters' + _cb connection' senderName' objectPath' interfaceName' signalName' parameters' maybeReleaseFunPtr funptrptr -- callback DBusProxyTypeFunc @@ -920,16 +921,16 @@ CString -> Ptr () -> IO CGType -dBusProxyTypeFuncWrapper funptrptr _cb manager object_path interface_name _ = do +dBusProxyTypeFuncWrapper funptrptr _cb manager objectPath interfaceName _ = do manager' <- (newObject DBusObjectManagerClient) manager - object_path' <- cstringToText object_path - maybeInterface_name <- - if interface_name == nullPtr + objectPath' <- cstringToText objectPath + maybeInterfaceName <- + if interfaceName == nullPtr then return Nothing else do - interface_name' <- cstringToText interface_name - return $ Just interface_name' - result <- _cb manager' object_path' maybeInterface_name + interfaceName' <- cstringToText interfaceName + return $ Just interfaceName' + result <- _cb manager' objectPath' maybeInterfaceName maybeReleaseFunPtr funptrptr let result' = gtypeToCGType result return result' @@ -1019,15 +1020,15 @@ Ptr GError -> Ptr () -> IO CInt -dBusInterfaceSetPropertyFuncWrapper funptrptr _cb connection sender object_path interface_name property_name value error_ _ = do +dBusInterfaceSetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName value error_ _ = do connection' <- (newObject DBusConnection) connection sender' <- cstringToText sender - object_path' <- cstringToText object_path - interface_name' <- cstringToText interface_name - property_name' <- cstringToText property_name + objectPath' <- cstringToText objectPath + interfaceName' <- cstringToText interfaceName + propertyName' <- cstringToText propertyName value' <- newGVariantFromPtr value error_' <- (newBoxed GError) error_ - result <- _cb connection' sender' object_path' interface_name' property_name' value' error_' + result <- _cb connection' sender' objectPath' interfaceName' propertyName' value' error_' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' @@ -1076,15 +1077,15 @@ Ptr DBusMethodInvocation -> Ptr () -> IO () -dBusInterfaceMethodCallFuncWrapper funptrptr _cb connection sender object_path interface_name method_name parameters invocation _ = do +dBusInterfaceMethodCallFuncWrapper funptrptr _cb connection sender objectPath interfaceName methodName parameters invocation _ = do connection' <- (newObject DBusConnection) connection sender' <- cstringToText sender - object_path' <- cstringToText object_path - interface_name' <- cstringToText interface_name - method_name' <- cstringToText method_name + objectPath' <- cstringToText objectPath + interfaceName' <- cstringToText interfaceName + methodName' <- cstringToText methodName parameters' <- newGVariantFromPtr parameters invocation' <- (wrapObject DBusMethodInvocation) invocation - _cb connection' sender' object_path' interface_name' method_name' parameters' invocation' + _cb connection' sender' objectPath' interfaceName' methodName' parameters' invocation' maybeReleaseFunPtr funptrptr -- callback DBusInterfaceGetPropertyFunc @@ -1128,14 +1129,14 @@ Ptr GError -> Ptr () -> IO (Ptr GVariant) -dBusInterfaceGetPropertyFuncWrapper funptrptr _cb connection sender object_path interface_name property_name error_ _ = do +dBusInterfaceGetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName error_ _ = do connection' <- (newObject DBusConnection) connection sender' <- cstringToText sender - object_path' <- cstringToText object_path - interface_name' <- cstringToText interface_name - property_name' <- cstringToText property_name + objectPath' <- cstringToText objectPath + interfaceName' <- cstringToText interfaceName + propertyName' <- cstringToText propertyName error_' <- (newBoxed GError) error_ - result <- _cb connection' sender' object_path' interface_name' property_name' error_' + result <- _cb connection' sender' objectPath' interfaceName' propertyName' error_' maybeReleaseFunPtr funptrptr result' <- refGVariant result return result' @@ -1280,11 +1281,11 @@ CString -> Ptr () -> IO () -busNameAppearedCallbackWrapper funptrptr _cb connection name name_owner _ = do +busNameAppearedCallbackWrapper funptrptr _cb connection name nameOwner _ = do connection' <- (newObject DBusConnection) connection name' <- cstringToText name - name_owner' <- cstringToText name_owner - _cb connection' name' name_owner' + nameOwner' <- cstringToText nameOwner + _cb connection' name' nameOwner' maybeReleaseFunPtr funptrptr -- callback BusNameAcquiredCallback @@ -1386,10 +1387,10 @@ Ptr AsyncResult -> Ptr () -> IO () -asyncReadyCallbackWrapper funptrptr _cb source_object res _ = do - source_object' <- (newObject GObject.Object) source_object +asyncReadyCallbackWrapper funptrptr _cb sourceObject res _ = do + sourceObject' <- (newObject GObject.Object) sourceObject res' <- (newObject AsyncResult) res - _cb source_object' res' + _cb sourceObject' res' maybeReleaseFunPtr funptrptr -- callback ActionEntryChangeStateFieldCallback diff --git a/GI/Gio/Constants.hs b/GI/Gio/Constants.hs --- a/GI/Gio/Constants.hs +++ b/GI/Gio/Constants.hs @@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Enums.hs b/GI/Gio/Enums.hs --- a/GI/Gio/Enums.hs +++ b/GI/Gio/Enums.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Flags.hs b/GI/Gio/Flags.hs --- a/GI/Gio/Flags.hs +++ b/GI/Gio/Flags.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Functions.hs b/GI/Gio/Functions.hs --- a/GI/Gio/Functions.hs +++ b/GI/Gio/Functions.hs @@ -1,4069 +1,2406 @@ -{- | -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 --- ** actionNameIsValid - actionNameIsValid , - - --- ** actionParseDetailedName - actionParseDetailedName , - - --- ** actionPrintDetailedName - actionPrintDetailedName , - - --- ** appInfoCreateFromCommandline - appInfoCreateFromCommandline , - - --- ** appInfoGetAll - appInfoGetAll , - - --- ** appInfoGetAllForType - appInfoGetAllForType , - - --- ** appInfoGetDefaultForType - appInfoGetDefaultForType , - - --- ** appInfoGetDefaultForUriScheme - appInfoGetDefaultForUriScheme , - - --- ** appInfoGetFallbackForType - appInfoGetFallbackForType , - - --- ** appInfoGetRecommendedForType - appInfoGetRecommendedForType , - - --- ** appInfoLaunchDefaultForUri - appInfoLaunchDefaultForUri , - - --- ** appInfoResetTypeAssociations - appInfoResetTypeAssociations , - - --- ** asyncInitableNewvAsync - asyncInitableNewvAsync , - - --- ** 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 , - - --- ** dbusAnnotationInfoLookup - dbusAnnotationInfoLookup , - - --- ** dbusErrorEncodeGerror - dbusErrorEncodeGerror , - - --- ** dbusErrorGetRemoteError - dbusErrorGetRemoteError , - - --- ** dbusErrorIsRemoteError - dbusErrorIsRemoteError , - - --- ** dbusErrorNewForDbusError - dbusErrorNewForDbusError , - - --- ** dbusErrorQuark - dbusErrorQuark , - - --- ** dbusErrorRegisterError - dbusErrorRegisterError , - - --- ** dbusErrorRegisterErrorDomain - dbusErrorRegisterErrorDomain , - - --- ** dbusErrorStripRemoteError - dbusErrorStripRemoteError , - - --- ** dbusErrorUnregisterError - dbusErrorUnregisterError , - - --- ** dbusGenerateGuid - dbusGenerateGuid , - - --- ** dbusGvalueToGvariant - dbusGvalueToGvariant , - - --- ** dbusGvariantToGvalue - dbusGvariantToGvalue , - - --- ** dbusIsAddress - dbusIsAddress , - - --- ** dbusIsGuid - dbusIsGuid , - - --- ** dbusIsInterfaceName - dbusIsInterfaceName , - - --- ** dbusIsMemberName - dbusIsMemberName , - - --- ** dbusIsName - dbusIsName , - - --- ** dbusIsSupportedAddress - dbusIsSupportedAddress , - - --- ** dbusIsUniqueName - dbusIsUniqueName , - - --- ** fileNewForCommandlineArg - fileNewForCommandlineArg , - - --- ** fileNewForCommandlineArgAndCwd - fileNewForCommandlineArgAndCwd , - - --- ** fileNewForPath - fileNewForPath , - - --- ** fileNewForUri - fileNewForUri , - - --- ** fileNewTmp - fileNewTmp , - - --- ** fileParseName - fileParseName , - - --- ** iconDeserialize - iconDeserialize , - - --- ** iconHash - iconHash , - - --- ** iconNewForString - iconNewForString , - - --- ** initableNewv - initableNewv , - - --- ** ioErrorFromErrno - ioErrorFromErrno , - - --- ** ioErrorQuark - ioErrorQuark , - - --- ** ioExtensionPointImplement - ioExtensionPointImplement , - - --- ** ioExtensionPointLookup - ioExtensionPointLookup , - - --- ** ioExtensionPointRegister - ioExtensionPointRegister , - - --- ** ioModulesScanAllInDirectory - ioModulesScanAllInDirectory , - - --- ** ioModulesScanAllInDirectoryWithScope - ioModulesScanAllInDirectoryWithScope , - - --- ** ioSchedulerCancelAllJobs - ioSchedulerCancelAllJobs , - - --- ** ioSchedulerPushJob - ioSchedulerPushJob , - - --- ** networkMonitorGetDefault - networkMonitorGetDefault , - - --- ** networkingInit - networkingInit , - - --- ** pollableSourceNew - pollableSourceNew , - - --- ** pollableSourceNewFull - pollableSourceNewFull , - - --- ** pollableStreamRead - pollableStreamRead , - - --- ** pollableStreamWrite - pollableStreamWrite , - - --- ** pollableStreamWriteAll - pollableStreamWriteAll , - - --- ** proxyGetDefaultForProtocol - proxyGetDefaultForProtocol , - - --- ** proxyResolverGetDefault - proxyResolverGetDefault , - - --- ** resolverErrorQuark - resolverErrorQuark , - - --- ** resourceErrorQuark - resourceErrorQuark , - - --- ** resourceLoad - resourceLoad , - - --- ** resourcesEnumerateChildren - resourcesEnumerateChildren , - - --- ** resourcesGetInfo - resourcesGetInfo , - - --- ** resourcesLookupData - resourcesLookupData , - - --- ** resourcesOpenStream - resourcesOpenStream , - - --- ** resourcesRegister - resourcesRegister , - - --- ** resourcesUnregister - resourcesUnregister , - - --- ** settingsSchemaSourceGetDefault - settingsSchemaSourceGetDefault , - - --- ** simpleAsyncReportGerrorInIdle - simpleAsyncReportGerrorInIdle , - - --- ** tlsBackendGetDefault - tlsBackendGetDefault , - - --- ** tlsClientConnectionNew - tlsClientConnectionNew , - - --- ** tlsErrorQuark - tlsErrorQuark , - - --- ** tlsFileDatabaseNew - tlsFileDatabaseNew , - - --- ** tlsServerConnectionNew - tlsServerConnectionNew , - - --- ** unixIsMountPathSystemInternal - unixIsMountPathSystemInternal , - - --- ** unixMountCompare - unixMountCompare , - - --- ** unixMountFree - unixMountFree , - - --- ** unixMountGetDevicePath - unixMountGetDevicePath , - - --- ** unixMountGetFsType - unixMountGetFsType , - - --- ** unixMountGetMountPath - unixMountGetMountPath , - - --- ** unixMountGuessCanEject - unixMountGuessCanEject , - - --- ** unixMountGuessIcon - unixMountGuessIcon , - - --- ** unixMountGuessName - unixMountGuessName , - - --- ** unixMountGuessShouldDisplay - unixMountGuessShouldDisplay , - - --- ** unixMountGuessSymbolicIcon - unixMountGuessSymbolicIcon , - - --- ** unixMountIsReadonly - unixMountIsReadonly , - - --- ** unixMountIsSystemInternal - unixMountIsSystemInternal , - - --- ** unixMountPointsChangedSince - unixMountPointsChangedSince , - - --- ** unixMountsChangedSince - unixMountsChangedSince , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gio.Types -import GI.Gio.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- function g_unix_mounts_changed_since --- Args : [Arg {argName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mounts_changed_since" g_unix_mounts_changed_since :: - Word64 -> -- time : TBasicType TUInt64 - IO CInt - - -unixMountsChangedSince :: - (MonadIO m) => - Word64 -> -- time - m Bool -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 {argName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_points_changed_since" g_unix_mount_points_changed_since :: - Word64 -> -- time : TBasicType TUInt64 - IO CInt - - -unixMountPointsChangedSince :: - (MonadIO m) => - Word64 -> -- time - m Bool -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 {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_is_system_internal" g_unix_mount_is_system_internal :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CInt - - -unixMountIsSystemInternal :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Bool -unixMountIsSystemInternal mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_is_system_internal mount_entry' - let result' = (/= 0) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_is_readonly --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_is_readonly" g_unix_mount_is_readonly :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CInt - - -unixMountIsReadonly :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Bool -unixMountIsReadonly mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_is_readonly mount_entry' - let result' = (/= 0) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_guess_symbolic_icon --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Icon" --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_guess_symbolic_icon" g_unix_mount_guess_symbolic_icon :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO (Ptr Icon) - - -unixMountGuessSymbolicIcon :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Icon -unixMountGuessSymbolicIcon mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_guess_symbolic_icon mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_guess_symbolic_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_guess_should_display --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_guess_should_display" g_unix_mount_guess_should_display :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CInt - - -unixMountGuessShouldDisplay :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Bool -unixMountGuessShouldDisplay mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_guess_should_display mount_entry' - let result' = (/= 0) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_guess_name --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_guess_name" g_unix_mount_guess_name :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CString - - -unixMountGuessName :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m T.Text -unixMountGuessName mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_guess_name mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_guess_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_guess_icon --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Icon" --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_guess_icon" g_unix_mount_guess_icon :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO (Ptr Icon) - - -unixMountGuessIcon :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Icon -unixMountGuessIcon mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_guess_icon mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_guess_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_guess_can_eject --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_guess_can_eject" g_unix_mount_guess_can_eject :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CInt - - -unixMountGuessCanEject :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m Bool -unixMountGuessCanEject mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_guess_can_eject mount_entry' - let result' = (/= 0) result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_get_mount_path --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_get_mount_path" g_unix_mount_get_mount_path :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CString - - -unixMountGetMountPath :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m T.Text -unixMountGetMountPath mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_get_mount_path mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_get_mount_path" result - result' <- cstringToText result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_get_fs_type --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_get_fs_type" g_unix_mount_get_fs_type :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CString - - -unixMountGetFsType :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m T.Text -unixMountGetFsType mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_get_fs_type mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_get_fs_type" result - result' <- cstringToText result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_get_device_path --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_get_device_path" g_unix_mount_get_device_path :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO CString - - -unixMountGetDevicePath :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m T.Text -unixMountGetDevicePath mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - result <- g_unix_mount_get_device_path mount_entry' - checkUnexpectedReturnNULL "g_unix_mount_get_device_path" result - result' <- cstringToText result - touchManagedPtr mount_entry - return result' - - --- function g_unix_mount_free --- Args : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_free" g_unix_mount_free :: - Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" - IO () - - -unixMountFree :: - (MonadIO m) => - UnixMountEntry -> -- mount_entry - m () -unixMountFree mount_entry = liftIO $ do - let mount_entry' = unsafeManagedPtrGetPtr mount_entry - g_unix_mount_free mount_entry' - touchManagedPtr mount_entry - return () - - --- function g_unix_mount_compare --- Args : [Arg {argName = "mount1", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount2", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount1", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount2", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_compare" g_unix_mount_compare :: - Ptr UnixMountEntry -> -- mount1 : TInterface "Gio" "UnixMountEntry" - Ptr UnixMountEntry -> -- mount2 : TInterface "Gio" "UnixMountEntry" - IO Int32 - - -unixMountCompare :: - (MonadIO m) => - UnixMountEntry -> -- mount1 - UnixMountEntry -> -- mount2 - m Int32 -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 {argName = "mount_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mount_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unix_is_mount_path_system_internal" g_unix_is_mount_path_system_internal :: - CString -> -- mount_path : TBasicType TUTF8 - IO CInt - - -unixIsMountPathSystemInternal :: - (MonadIO m) => - T.Text -> -- mount_path - m Bool -unixIsMountPathSystemInternal mount_path = liftIO $ do - mount_path' <- textToCString mount_path - result <- g_unix_is_mount_path_system_internal mount_path' - let result' = (/= 0) result - freeMem mount_path' - return result' - - --- function g_tls_server_connection_new --- Args : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- base_io_stream - Maybe (b) -> -- certificate - m TlsServerConnection -tlsServerConnectionNew base_io_stream certificate = liftIO $ do - let base_io_stream' = unsafeManagedPtrCastPtr base_io_stream - 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 base_io_stream' maybeCertificate - checkUnexpectedReturnNULL "g_tls_server_connection_new" result - result' <- (wrapObject TlsServerConnection) result - touchManagedPtr base_io_stream - whenJust certificate touchManagedPtr - return result' - ) (do - return () - ) - - --- function g_tls_file_database_new --- Args : [Arg {argName = "anchors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "anchors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - - --- function g_tls_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_tls_error_quark" g_tls_error_quark :: - IO Word32 - - -tlsErrorQuark :: - (MonadIO m) => - m Word32 -tlsErrorQuark = liftIO $ do - result <- g_tls_error_quark - return result - - --- function g_tls_client_connection_new --- Args : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "server_identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "server_identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- base_io_stream - Maybe (b) -> -- server_identity - m TlsClientConnection -tlsClientConnectionNew base_io_stream server_identity = liftIO $ do - let base_io_stream' = unsafeManagedPtrCastPtr base_io_stream - maybeServer_identity <- case server_identity of - Nothing -> return nullPtr - Just jServer_identity -> do - let jServer_identity' = unsafeManagedPtrCastPtr jServer_identity - return jServer_identity' - onException (do - result <- propagateGError $ g_tls_client_connection_new base_io_stream' maybeServer_identity - checkUnexpectedReturnNULL "g_tls_client_connection_new" result - result' <- (wrapObject TlsClientConnection) result - touchManagedPtr base_io_stream - whenJust server_identity touchManagedPtr - return result' - ) (do - return () - ) - - --- function g_tls_backend_get_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -tlsBackendGetDefault = liftIO $ do - result <- g_tls_backend_get_default - checkUnexpectedReturnNULL "g_tls_backend_get_default" result - result' <- (newObject TlsBackend) result - return result' - - --- function g_simple_async_report_gerror_in_idle --- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_report_gerror_in_idle" g_simple_async_report_gerror_in_idle :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - Ptr GError -> -- error : TError - IO () - -{-# DEPRECATED simpleAsyncReportGerrorInIdle ["(Since version 2.46)","Use g_task_report_error()."]#-} -simpleAsyncReportGerrorInIdle :: - (MonadIO m, GObject.ObjectK a) => - Maybe (a) -> -- object - Maybe (AsyncReadyCallback) -> -- callback - GError -> -- error - m () -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 user_data = nullPtr - g_simple_async_report_gerror_in_idle maybeObject maybeCallback user_data error_' - whenJust object touchManagedPtr - touchManagedPtr error_ - return () - - --- function g_settings_schema_source_get_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -settingsSchemaSourceGetDefault = liftIO $ do - result <- g_settings_schema_source_get_default - checkUnexpectedReturnNULL "g_settings_schema_source_get_default" result - result' <- (newBoxed SettingsSchemaSource) result - return result' - - --- function g_resources_unregister --- Args : [Arg {argName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_resources_unregister" g_resources_unregister :: - Ptr Resource -> -- resource : TInterface "Gio" "Resource" - IO () - - -resourcesUnregister :: - (MonadIO m) => - Resource -> -- resource - m () -resourcesUnregister resource = liftIO $ do - let resource' = unsafeManagedPtrGetPtr resource - g_resources_unregister resource' - touchManagedPtr resource - return () - - --- function g_resources_register --- Args : [Arg {argName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_resources_register" g_resources_register :: - Ptr Resource -> -- resource : TInterface "Gio" "Resource" - IO () - - -resourcesRegister :: - (MonadIO m) => - Resource -> -- resource - m () -resourcesRegister resource = liftIO $ do - let resource' = unsafeManagedPtrGetPtr resource - g_resources_register resource' - touchManagedPtr resource - return () - - --- function g_resources_open_stream --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "g_resources_open_stream" g_resources_open_stream :: - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr InputStream) - - -resourcesOpenStream :: - (MonadIO m) => - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m InputStream -resourcesOpenStream path lookup_flags = liftIO $ do - path' <- textToCString path - let lookup_flags' = gflagsToWord lookup_flags - onException (do - result <- propagateGError $ g_resources_open_stream path' lookup_flags' - checkUnexpectedReturnNULL "g_resources_open_stream" result - result' <- (wrapObject InputStream) result - freeMem path' - return result' - ) (do - freeMem path' - ) - - --- function g_resources_lookup_data --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : True --- Skip return : False - -foreign import ccall "g_resources_lookup_data" g_resources_lookup_data :: - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GLib.Bytes) - - -resourcesLookupData :: - (MonadIO m) => - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m GLib.Bytes -resourcesLookupData path lookup_flags = liftIO $ do - path' <- textToCString path - let lookup_flags' = gflagsToWord lookup_flags - onException (do - result <- propagateGError $ g_resources_lookup_data path' lookup_flags' - 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 {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_resources_get_info" g_resources_get_info :: - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr Word64 -> -- size : TBasicType TUInt64 - Ptr Word32 -> -- flags : TBasicType TUInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -resourcesGetInfo :: - (MonadIO m) => - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m (Word64,Word32) -resourcesGetInfo path lookup_flags = liftIO $ do - path' <- textToCString path - let lookup_flags' = gflagsToWord lookup_flags - size <- allocMem :: IO (Ptr Word64) - flags <- allocMem :: IO (Ptr Word32) - onException (do - _ <- propagateGError $ g_resources_get_info path' lookup_flags' 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 {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_resources_enumerate_children" g_resources_enumerate_children :: - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -resourcesEnumerateChildren :: - (MonadIO m) => - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m [T.Text] -resourcesEnumerateChildren path lookup_flags = liftIO $ do - path' <- textToCString path - let lookup_flags' = gflagsToWord lookup_flags - onException (do - result <- propagateGError $ g_resources_enumerate_children path' lookup_flags' - checkUnexpectedReturnNULL "g_resources_enumerate_children" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem path' - return result' - ) (do - freeMem path' - ) - - --- function g_resource_load --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - - --- function g_resource_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_resource_error_quark" g_resource_error_quark :: - IO Word32 - - -resourceErrorQuark :: - (MonadIO m) => - m Word32 -resourceErrorQuark = liftIO $ do - result <- g_resource_error_quark - return result - - --- function g_resolver_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_error_quark" g_resolver_error_quark :: - IO Word32 - - -resolverErrorQuark :: - (MonadIO m) => - m Word32 -resolverErrorQuark = liftIO $ do - result <- g_resolver_error_quark - return result - - --- function g_proxy_resolver_get_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -proxyResolverGetDefault = liftIO $ do - result <- g_proxy_resolver_get_default - checkUnexpectedReturnNULL "g_proxy_resolver_get_default" result - result' <- (newObject ProxyResolver) result - return result' - - --- function g_proxy_get_default_for_protocol --- Args : [Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_pollable_stream_write_all --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_pollable_stream_write_all" g_pollable_stream_write_all :: - Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - CInt -> -- blocking : TBasicType TBoolean - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -pollableStreamWriteAll :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- stream - ByteString -> -- buffer - Bool -> -- blocking - Maybe (b) -> -- cancellable - m (Word64) -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 - bytes_written <- 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' bytes_written maybeCancellable - bytes_written' <- peek bytes_written - touchManagedPtr stream - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem bytes_written - return bytes_written' - ) (do - freeMem buffer' - freeMem bytes_written - ) - - --- function g_pollable_stream_write --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_pollable_stream_write" g_pollable_stream_write :: - Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - CInt -> -- blocking : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -pollableStreamWrite :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- stream - ByteString -> -- buffer - Bool -> -- blocking - Maybe (b) -> -- cancellable - m Int64 -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 {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_pollable_stream_read" g_pollable_stream_read :: - Ptr InputStream -> -- stream : TInterface "Gio" "InputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - CInt -> -- blocking : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -pollableStreamRead :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- stream - ByteString -> -- buffer - Bool -> -- blocking - Maybe (b) -> -- cancellable - m Int64 -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 {argName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_source_new_full" g_pollable_source_new_full :: - Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object" - Ptr GLib.Source -> -- child_source : TInterface "GLib" "Source" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO (Ptr GLib.Source) - - -pollableSourceNewFull :: - (MonadIO m, GObject.ObjectK a, CancellableK b) => - a -> -- pollable_stream - Maybe (GLib.Source) -> -- child_source - Maybe (b) -> -- cancellable - m GLib.Source -pollableSourceNewFull pollable_stream child_source cancellable = liftIO $ do - let pollable_stream' = unsafeManagedPtrCastPtr pollable_stream - maybeChild_source <- case child_source of - Nothing -> return nullPtr - Just jChild_source -> do - let jChild_source' = unsafeManagedPtrGetPtr jChild_source - return jChild_source' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- g_pollable_source_new_full pollable_stream' maybeChild_source maybeCancellable - checkUnexpectedReturnNULL "g_pollable_source_new_full" result - result' <- (wrapBoxed GLib.Source) result - touchManagedPtr pollable_stream - whenJust child_source touchManagedPtr - whenJust cancellable touchManagedPtr - return result' - - --- function g_pollable_source_new --- Args : [Arg {argName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_source_new" g_pollable_source_new :: - Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object" - IO (Ptr GLib.Source) - - -pollableSourceNew :: - (MonadIO m, GObject.ObjectK a) => - a -> -- pollable_stream - m GLib.Source -pollableSourceNew pollable_stream = liftIO $ do - let pollable_stream' = unsafeManagedPtrCastPtr pollable_stream - result <- g_pollable_source_new pollable_stream' - checkUnexpectedReturnNULL "g_pollable_source_new" result - result' <- (wrapBoxed GLib.Source) result - touchManagedPtr pollable_stream - return result' - - --- function g_networking_init --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_networking_init" g_networking_init :: - IO () - - -networkingInit :: - (MonadIO m) => - m () -networkingInit = liftIO $ do - g_networking_init - return () - - --- function g_network_monitor_get_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -networkMonitorGetDefault = liftIO $ do - result <- g_network_monitor_get_default - checkUnexpectedReturnNULL "g_network_monitor_get_default" result - result' <- (newObject NetworkMonitor) result - return result' - - --- function g_io_scheduler_push_job --- Args : [Arg {argName = "job_func", argType = TInterface "Gio" "IOSchedulerJobFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "job_func", argType = TInterface "Gio" "IOSchedulerJobFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_io_scheduler_push_job" g_io_scheduler_push_job :: - FunPtr IOSchedulerJobFuncC -> -- job_func : TInterface "Gio" "IOSchedulerJobFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - Int32 -> -- io_priority : TBasicType TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO () - -{-# DEPRECATED ioSchedulerPushJob ["use #GThreadPool or g_task_run_in_thread()"]#-} -ioSchedulerPushJob :: - (MonadIO m, CancellableK a) => - IOSchedulerJobFunc -> -- job_func - Int32 -> -- io_priority - Maybe (a) -> -- cancellable - m () -ioSchedulerPushJob job_func io_priority cancellable = liftIO $ do - job_func' <- mkIOSchedulerJobFunc (iOSchedulerJobFuncWrapper Nothing job_func) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - let user_data = castFunPtrToPtr job_func' - let notify = safeFreeFunPtrPtr - g_io_scheduler_push_job job_func' user_data notify io_priority maybeCancellable - whenJust cancellable touchManagedPtr - return () - - --- function g_io_scheduler_cancel_all_jobs --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_io_scheduler_cancel_all_jobs" g_io_scheduler_cancel_all_jobs :: - IO () - -{-# DEPRECATED ioSchedulerCancelAllJobs ["You should never call this function, since you don't","know how other libraries in your program might be making use of","gioscheduler."]#-} -ioSchedulerCancelAllJobs :: - (MonadIO m) => - m () -ioSchedulerCancelAllJobs = liftIO $ do - g_io_scheduler_cancel_all_jobs - return () - - --- function g_io_modules_scan_all_in_directory_with_scope --- Args : [Arg {argName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_io_modules_scan_all_in_directory_with_scope" g_io_modules_scan_all_in_directory_with_scope :: - CString -> -- dirname : TBasicType TUTF8 - Ptr IOModuleScope -> -- scope : TInterface "Gio" "IOModuleScope" - IO () - - -ioModulesScanAllInDirectoryWithScope :: - (MonadIO m) => - T.Text -> -- dirname - IOModuleScope -> -- scope - m () -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 {argName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -ioModulesScanAllInDirectory dirname = liftIO $ do - dirname' <- textToCString dirname - g_io_modules_scan_all_in_directory dirname' - freeMem dirname' - return () - - --- function g_io_extension_point_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -ioExtensionPointRegister name = liftIO $ do - name' <- textToCString name - result <- g_io_extension_point_register name' - checkUnexpectedReturnNULL "g_io_extension_point_register" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> IOExtensionPoint <$> newForeignPtr_ x) result - freeMem name' - return result' - - --- function g_io_extension_point_lookup --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -ioExtensionPointLookup name = liftIO $ do - name' <- textToCString name - result <- g_io_extension_point_lookup name' - checkUnexpectedReturnNULL "g_io_extension_point_lookup" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> IOExtensionPoint <$> newForeignPtr_ x) result - freeMem name' - return result' - - --- function g_io_extension_point_implement --- Args : [Arg {argName = "extension_point_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extension_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "extension_point_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extension_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr IOExtension) - - -ioExtensionPointImplement :: - (MonadIO m) => - T.Text -> -- extension_point_name - GType -> -- type - T.Text -> -- extension_name - Int32 -> -- priority - m IOExtension -ioExtensionPointImplement extension_point_name type_ extension_name priority = liftIO $ do - extension_point_name' <- textToCString extension_point_name - let type_' = gtypeToCGType type_ - extension_name' <- textToCString extension_name - result <- g_io_extension_point_implement extension_point_name' type_' extension_name' priority - checkUnexpectedReturnNULL "g_io_extension_point_implement" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> IOExtension <$> newForeignPtr_ x) result - freeMem extension_point_name' - freeMem extension_name' - return result' - - --- function g_io_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_io_error_quark" g_io_error_quark :: - IO Word32 - - -ioErrorQuark :: - (MonadIO m) => - m Word32 -ioErrorQuark = liftIO $ do - result <- g_io_error_quark - return result - - --- function g_io_error_from_errno --- Args : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOErrorEnum" --- throws : False --- Skip return : False - -foreign import ccall "g_io_error_from_errno" g_io_error_from_errno :: - Int32 -> -- err_no : TBasicType TInt32 - IO CUInt - - -ioErrorFromErrno :: - (MonadIO m) => - Int32 -> -- err_no - m IOErrorEnum -ioErrorFromErrno err_no = liftIO $ do - result <- g_io_error_from_errno err_no - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_initable_newv --- Args : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - 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 -> -- object_type - [GObject.Parameter] -> -- parameters - Maybe (a) -> -- cancellable - m GObject.Object -initableNewv object_type parameters cancellable = liftIO $ do - let n_parameters = fromIntegral $ length parameters - let object_type' = gtypeToCGType object_type - 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 object_type' n_parameters 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'' - ) - - --- function g_icon_new_for_string --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - - --- function g_icon_hash --- Args : [Arg {argName = "icon", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_icon_hash" g_icon_hash :: - Ptr () -> -- icon : TBasicType TVoid - IO Word32 - - -iconHash :: - (MonadIO m) => - Ptr () -> -- icon - m Word32 -iconHash icon = liftIO $ do - result <- g_icon_hash icon - return result - - --- function g_icon_deserialize --- Args : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconDeserialize value = liftIO $ do - let value' = unsafeManagedPtrGetPtr value - result <- g_icon_deserialize value' - checkUnexpectedReturnNULL "g_icon_deserialize" result - result' <- (wrapObject Icon) result - return result' - - --- function g_file_parse_name --- Args : [Arg {argName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- parse_name - m File -fileParseName parse_name = liftIO $ do - parse_name' <- textToCString parse_name - result <- g_file_parse_name parse_name' - checkUnexpectedReturnNULL "g_file_parse_name" result - result' <- (wrapObject File) result - freeMem parse_name' - return result' - - --- function g_file_new_tmp --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iostream", argType = TInterface "Gio" "FileIOStream", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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 - ) - - --- function g_file_new_for_uri --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_file_new_for_path --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_file_new_for_commandline_arg_and_cwd --- Args : [Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_file_new_for_commandline_arg --- Args : [Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_dbus_is_unique_name --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_unique_name" g_dbus_is_unique_name :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsUniqueName :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_is_supported_address" g_dbus_is_supported_address :: - CString -> -- string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -dbusIsSupportedAddress :: - (MonadIO m) => - T.Text -> -- string - m () -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_name" g_dbus_is_name :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsName :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_member_name" g_dbus_is_member_name :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsMemberName :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_interface_name" g_dbus_is_interface_name :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsInterfaceName :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_guid" g_dbus_is_guid :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsGuid :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_is_address" g_dbus_is_address :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -dbusIsAddress :: - (MonadIO m) => - T.Text -> -- string - m Bool -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 {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_gvalue", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_gvariant_to_gvalue" g_dbus_gvariant_to_gvalue :: - Ptr GVariant -> -- value : TVariant - Ptr GValue -> -- out_gvalue : TInterface "GObject" "Value" - IO () - - -dbusGvariantToGvalue :: - (MonadIO m) => - GVariant -> -- value - m (GValue) -dbusGvariantToGvalue value = liftIO $ do - let value' = unsafeManagedPtrGetPtr value - out_gvalue <- callocBoxedBytes 24 :: IO (Ptr GValue) - g_dbus_gvariant_to_gvalue value' out_gvalue - out_gvalue' <- (wrapBoxed GValue) out_gvalue - return out_gvalue' - - --- function g_dbus_gvalue_to_gvariant --- Args : [Arg {argName = "gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_gvalue_to_gvariant" g_dbus_gvalue_to_gvariant :: - Ptr GValue -> -- gvalue : TInterface "GObject" "Value" - Ptr GLib.VariantType -> -- type : TInterface "GLib" "VariantType" - IO (Ptr GVariant) - - -dbusGvalueToGvariant :: - (MonadIO m) => - GValue -> -- gvalue - GLib.VariantType -> -- type - m GVariant -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 : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_generate_guid" g_dbus_generate_guid :: - IO CString - - -dbusGenerateGuid :: - (MonadIO m) => - m T.Text -dbusGenerateGuid = liftIO $ do - result <- g_dbus_generate_guid - checkUnexpectedReturnNULL "g_dbus_generate_guid" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_dbus_error_unregister_error --- Args : [Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_unregister_error" g_dbus_error_unregister_error :: - Word32 -> -- error_domain : TBasicType TUInt32 - Int32 -> -- error_code : TBasicType TInt32 - CString -> -- dbus_error_name : TBasicType TUTF8 - IO CInt - - -dbusErrorUnregisterError :: - (MonadIO m) => - Word32 -> -- error_domain - Int32 -> -- error_code - T.Text -> -- dbus_error_name - m Bool -dbusErrorUnregisterError error_domain error_code dbus_error_name = liftIO $ do - dbus_error_name' <- textToCString dbus_error_name - result <- g_dbus_error_unregister_error error_domain error_code dbus_error_name' - let result' = (/= 0) result - freeMem dbus_error_name' - return result' - - --- function g_dbus_error_strip_remote_error --- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_strip_remote_error" g_dbus_error_strip_remote_error :: - Ptr GError -> -- error : TError - IO CInt - - -dbusErrorStripRemoteError :: - (MonadIO m) => - GError -> -- error - m Bool -dbusErrorStripRemoteError error_ = liftIO $ do - let error_' = unsafeManagedPtrGetPtr error_ - result <- g_dbus_error_strip_remote_error error_' - let result' = (/= 0) result - touchManagedPtr error_ - return result' - - --- function g_dbus_error_register_error_domain --- Args : [Arg {argName = "error_domain_quark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark_volatile", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "Gio" "DBusErrorEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_entries", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error_domain_quark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quark_volatile", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "Gio" "DBusErrorEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_entries", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_register_error_domain" g_dbus_error_register_error_domain :: - CString -> -- error_domain_quark_name : TBasicType TUTF8 - Word64 -> -- quark_volatile : TBasicType TUInt64 - Ptr DBusErrorEntry -> -- entries : TInterface "Gio" "DBusErrorEntry" - Word32 -> -- num_entries : TBasicType TUInt32 - IO () - - -dbusErrorRegisterErrorDomain :: - (MonadIO m) => - T.Text -> -- error_domain_quark_name - Word64 -> -- quark_volatile - DBusErrorEntry -> -- entries - Word32 -> -- num_entries - m () -dbusErrorRegisterErrorDomain error_domain_quark_name quark_volatile entries num_entries = liftIO $ do - error_domain_quark_name' <- textToCString error_domain_quark_name - let entries' = unsafeManagedPtrGetPtr entries - g_dbus_error_register_error_domain error_domain_quark_name' quark_volatile entries' num_entries - touchManagedPtr entries - freeMem error_domain_quark_name' - return () - - --- function g_dbus_error_register_error --- Args : [Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_register_error" g_dbus_error_register_error :: - Word32 -> -- error_domain : TBasicType TUInt32 - Int32 -> -- error_code : TBasicType TInt32 - CString -> -- dbus_error_name : TBasicType TUTF8 - IO CInt - - -dbusErrorRegisterError :: - (MonadIO m) => - Word32 -> -- error_domain - Int32 -> -- error_code - T.Text -> -- dbus_error_name - m Bool -dbusErrorRegisterError error_domain error_code dbus_error_name = liftIO $ do - dbus_error_name' <- textToCString dbus_error_name - result <- g_dbus_error_register_error error_domain error_code dbus_error_name' - let result' = (/= 0) result - freeMem dbus_error_name' - return result' - - --- function g_dbus_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_quark" g_dbus_error_quark :: - IO Word32 - - -dbusErrorQuark :: - (MonadIO m) => - m Word32 -dbusErrorQuark = liftIO $ do - result <- g_dbus_error_quark - return result - - --- function g_dbus_error_new_for_dbus_error --- Args : [Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dbus_error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dbus_error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TError --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_new_for_dbus_error" g_dbus_error_new_for_dbus_error :: - CString -> -- dbus_error_name : TBasicType TUTF8 - CString -> -- dbus_error_message : TBasicType TUTF8 - IO (Ptr GError) - - -dbusErrorNewForDbusError :: - (MonadIO m) => - T.Text -> -- dbus_error_name - T.Text -> -- dbus_error_message - m GError -dbusErrorNewForDbusError dbus_error_name dbus_error_message = liftIO $ do - dbus_error_name' <- textToCString dbus_error_name - dbus_error_message' <- textToCString dbus_error_message - result <- g_dbus_error_new_for_dbus_error dbus_error_name' dbus_error_message' - checkUnexpectedReturnNULL "g_dbus_error_new_for_dbus_error" result - result' <- (wrapBoxed GError) result - freeMem dbus_error_name' - freeMem dbus_error_message' - return result' - - --- function g_dbus_error_is_remote_error --- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_is_remote_error" g_dbus_error_is_remote_error :: - Ptr GError -> -- error : TError - IO CInt - - -dbusErrorIsRemoteError :: - (MonadIO m) => - GError -> -- error - m Bool -dbusErrorIsRemoteError error_ = liftIO $ do - let error_' = unsafeManagedPtrGetPtr error_ - result <- g_dbus_error_is_remote_error error_' - let result' = (/= 0) result - touchManagedPtr error_ - return result' - - --- function g_dbus_error_get_remote_error --- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_get_remote_error" g_dbus_error_get_remote_error :: - Ptr GError -> -- error : TError - IO CString - - -dbusErrorGetRemoteError :: - (MonadIO m) => - GError -> -- error - m T.Text -dbusErrorGetRemoteError error_ = liftIO $ do - let error_' = unsafeManagedPtrGetPtr error_ - result <- g_dbus_error_get_remote_error error_' - checkUnexpectedReturnNULL "g_dbus_error_get_remote_error" result - result' <- cstringToText result - freeMem result - touchManagedPtr error_ - return result' - - --- function g_dbus_error_encode_gerror --- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_error_encode_gerror" g_dbus_error_encode_gerror :: - Ptr GError -> -- error : TError - IO CString - - -dbusErrorEncodeGerror :: - (MonadIO m) => - GError -> -- error - m T.Text -dbusErrorEncodeGerror error_ = liftIO $ do - let error_' = unsafeManagedPtrGetPtr error_ - result <- g_dbus_error_encode_gerror error_' - checkUnexpectedReturnNULL "g_dbus_error_encode_gerror" result - result' <- cstringToText result - freeMem result - touchManagedPtr error_ - return result' - - --- function g_dbus_annotation_info_lookup --- Args : [Arg {argName = "annotations", argType = TCArray True (-1) (-1) (TInterface "Gio" "DBusAnnotationInfo"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "annotations", argType = TCArray True (-1) (-1) (TInterface "Gio" "DBusAnnotationInfo"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - --- function g_dbus_address_get_stream_sync --- Args : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOStream" --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_address_get_stream_sync" g_dbus_address_get_stream_sync :: - CString -> -- address : TBasicType TUTF8 - CString -> -- out_guid : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr IOStream) - - -dbusAddressGetStreamSync :: - (MonadIO m, CancellableK a) => - T.Text -> -- address - T.Text -> -- out_guid - Maybe (a) -> -- cancellable - m IOStream -dbusAddressGetStreamSync address out_guid cancellable = liftIO $ do - address' <- textToCString address - out_guid' <- textToCString out_guid - 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' out_guid' maybeCancellable - checkUnexpectedReturnNULL "g_dbus_address_get_stream_sync" result - result' <- (wrapObject IOStream) result - whenJust cancellable touchManagedPtr - freeMem address' - freeMem out_guid' - return result' - ) (do - freeMem address' - freeMem out_guid' - ) - - --- function g_dbus_address_get_stream_finish --- Args : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOStream" --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_address_get_stream_finish" g_dbus_address_get_stream_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - CString -> -- out_guid : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr IOStream) - - -dbusAddressGetStreamFinish :: - (MonadIO m, AsyncResultK a) => - a -> -- res - T.Text -> -- out_guid - m IOStream -dbusAddressGetStreamFinish res out_guid = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - out_guid' <- textToCString out_guid - onException (do - result <- propagateGError $ g_dbus_address_get_stream_finish res' out_guid' - checkUnexpectedReturnNULL "g_dbus_address_get_stream_finish" result - result' <- (wrapObject IOStream) result - touchManagedPtr res - freeMem out_guid' - return result' - ) (do - freeMem out_guid' - ) - - --- function g_dbus_address_get_stream --- Args : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_address_get_stream" g_dbus_address_get_stream :: - CString -> -- address : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -dbusAddressGetStream :: - (MonadIO m, CancellableK a) => - T.Text -> -- address - Maybe (a) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_dbus_address_get_stream address' maybeCancellable maybeCallback user_data - whenJust cancellable touchManagedPtr - freeMem address' - return () - - --- function g_dbus_address_get_for_bus_sync --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_address_get_for_bus_sync" g_dbus_address_get_for_bus_sync :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CString - - -dbusAddressGetForBusSync :: - (MonadIO m, CancellableK a) => - BusType -> -- bus_type - Maybe (a) -> -- cancellable - m T.Text -dbusAddressGetForBusSync bus_type cancellable = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type - 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 bus_type' 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 {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_address_escape_value" g_dbus_address_escape_value :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -dbusAddressEscapeValue :: - (MonadIO m) => - T.Text -> -- string - m T.Text -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 : [] --- hInArgs : [] --- returnType : TGList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_content_types_get_registered" g_content_types_get_registered :: - IO (Ptr (GList CString)) - - -contentTypesGetRegistered :: - (MonadIO m) => - m [T.Text] -contentTypesGetRegistered = liftIO $ do - result <- g_content_types_get_registered - checkUnexpectedReturnNULL "g_content_types_get_registered" result - result' <- unpackGList result - result'' <- mapM cstringToText result' - mapGList freeMem result - g_list_free result - return result'' - - --- function g_content_type_is_unknown --- Args : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_is_unknown" g_content_type_is_unknown :: - CString -> -- type : TBasicType TUTF8 - IO CInt - - -contentTypeIsUnknown :: - (MonadIO m) => - T.Text -> -- type - m Bool -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 {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_is_a" g_content_type_is_a :: - CString -> -- type : TBasicType TUTF8 - CString -> -- supertype : TBasicType TUTF8 - IO CInt - - -contentTypeIsA :: - (MonadIO m) => - T.Text -> -- type - T.Text -> -- supertype - m Bool -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 {argName = "root", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "root", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_guess_for_tree" g_content_type_guess_for_tree :: - Ptr File -> -- root : TInterface "Gio" "File" - IO (Ptr CString) - - -contentTypeGuessForTree :: - (MonadIO m, FileK a) => - a -> -- root - m [T.Text] -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 {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_uncertain", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_guess" g_content_type_guess :: - CString -> -- filename : TBasicType TUTF8 - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- data_size : TBasicType TUInt64 - Ptr CInt -> -- result_uncertain : TBasicType TBoolean - IO CString - - -contentTypeGuess :: - (MonadIO m) => - Maybe (T.Text) -> -- filename - Maybe (ByteString) -> -- data - m (T.Text,Bool) -contentTypeGuess filename data_ = liftIO $ do - let data_size = 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_' - result_uncertain <- allocMem :: IO (Ptr CInt) - result <- g_content_type_guess maybeFilename maybeData_ data_size result_uncertain - checkUnexpectedReturnNULL "g_content_type_guess" result - result' <- cstringToText result - freeMem result - result_uncertain' <- peek result_uncertain - let result_uncertain'' = (/= 0) result_uncertain' - freeMem maybeFilename - freeMem maybeData_ - freeMem result_uncertain - return (result', result_uncertain'') - - --- function g_content_type_get_symbolic_icon --- Args : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Icon" --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_get_symbolic_icon" g_content_type_get_symbolic_icon :: - CString -> -- type : TBasicType TUTF8 - IO (Ptr Icon) - - -contentTypeGetSymbolicIcon :: - (MonadIO m) => - T.Text -> -- type - m Icon -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 {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_get_mime_type" g_content_type_get_mime_type :: - CString -> -- type : TBasicType TUTF8 - IO CString - - -contentTypeGetMimeType :: - (MonadIO m) => - T.Text -> -- type - m T.Text -contentTypeGetMimeType type_ = liftIO $ do - type_' <- textToCString type_ - result <- g_content_type_get_mime_type type_' - checkUnexpectedReturnNULL "g_content_type_get_mime_type" result - result' <- cstringToText result - freeMem result - freeMem type_' - return result' - - --- function g_content_type_get_icon --- Args : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Icon" --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_get_icon" g_content_type_get_icon :: - CString -> -- type : TBasicType TUTF8 - IO (Ptr Icon) - - -contentTypeGetIcon :: - (MonadIO m) => - T.Text -> -- type - m Icon -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 {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_get_generic_icon_name" g_content_type_get_generic_icon_name :: - CString -> -- type : TBasicType TUTF8 - IO CString - - -contentTypeGetGenericIconName :: - (MonadIO m) => - T.Text -> -- type - m T.Text -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 {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_get_description" g_content_type_get_description :: - CString -> -- type : TBasicType TUTF8 - IO CString - - -contentTypeGetDescription :: - (MonadIO m) => - T.Text -> -- type - m T.Text -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 {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_from_mime_type" g_content_type_from_mime_type :: - CString -> -- mime_type : TBasicType TUTF8 - IO CString - - -contentTypeFromMimeType :: - (MonadIO m) => - T.Text -> -- mime_type - m T.Text -contentTypeFromMimeType mime_type = liftIO $ do - mime_type' <- textToCString mime_type - result <- g_content_type_from_mime_type mime_type' - checkUnexpectedReturnNULL "g_content_type_from_mime_type" result - result' <- cstringToText result - freeMem result - freeMem mime_type' - return result' - - --- function g_content_type_equals --- Args : [Arg {argName = "type1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_equals" g_content_type_equals :: - CString -> -- type1 : TBasicType TUTF8 - CString -> -- type2 : TBasicType TUTF8 - IO CInt - - -contentTypeEquals :: - (MonadIO m) => - T.Text -> -- type1 - T.Text -> -- type2 - m Bool -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 {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_content_type_can_be_executable" g_content_type_can_be_executable :: - CString -> -- type : TBasicType TUTF8 - IO CInt - - -contentTypeCanBeExecutable :: - (MonadIO m) => - T.Text -> -- type - m Bool -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 {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bus_watch_name_on_connection_with_closures" g_bus_watch_name_on_connection_with_closures :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags" - Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure" - IO Word32 - - -busWatchNameOnConnection :: - (MonadIO m, DBusConnectionK a) => - a -> -- connection - T.Text -> -- name - [BusNameWatcherFlags] -> -- flags - Maybe (Closure) -> -- name_appeared_closure - Maybe (Closure) -> -- name_vanished_closure - m Word32 -busWatchNameOnConnection connection name flags name_appeared_closure name_vanished_closure = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - name' <- textToCString name - let flags' = gflagsToWord flags - maybeName_appeared_closure <- case name_appeared_closure of - Nothing -> return nullPtr - Just jName_appeared_closure -> do - let jName_appeared_closure' = unsafeManagedPtrGetPtr jName_appeared_closure - return jName_appeared_closure' - maybeName_vanished_closure <- case name_vanished_closure of - Nothing -> return nullPtr - Just jName_vanished_closure -> do - let jName_vanished_closure' = unsafeManagedPtrGetPtr jName_vanished_closure - return jName_vanished_closure' - result <- g_bus_watch_name_on_connection_with_closures connection' name' flags' maybeName_appeared_closure maybeName_vanished_closure - touchManagedPtr connection - whenJust name_appeared_closure touchManagedPtr - whenJust name_vanished_closure touchManagedPtr - freeMem name' - return result - - --- function g_bus_watch_name_with_closures --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bus_watch_name_with_closures" g_bus_watch_name_with_closures :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags" - Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure" - IO Word32 - - -busWatchName :: - (MonadIO m) => - BusType -> -- bus_type - T.Text -> -- name - [BusNameWatcherFlags] -> -- flags - Maybe (Closure) -> -- name_appeared_closure - Maybe (Closure) -> -- name_vanished_closure - m Word32 -busWatchName bus_type name flags name_appeared_closure name_vanished_closure = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type - name' <- textToCString name - let flags' = gflagsToWord flags - maybeName_appeared_closure <- case name_appeared_closure of - Nothing -> return nullPtr - Just jName_appeared_closure -> do - let jName_appeared_closure' = unsafeManagedPtrGetPtr jName_appeared_closure - return jName_appeared_closure' - maybeName_vanished_closure <- case name_vanished_closure of - Nothing -> return nullPtr - Just jName_vanished_closure -> do - let jName_vanished_closure' = unsafeManagedPtrGetPtr jName_vanished_closure - return jName_vanished_closure' - result <- g_bus_watch_name_with_closures bus_type' name' flags' maybeName_appeared_closure maybeName_vanished_closure - whenJust name_appeared_closure touchManagedPtr - whenJust name_vanished_closure touchManagedPtr - freeMem name' - return result - - --- function g_bus_unwatch_name --- Args : [Arg {argName = "watcher_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "watcher_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bus_unwatch_name" g_bus_unwatch_name :: - Word32 -> -- watcher_id : TBasicType TUInt32 - IO () - - -busUnwatchName :: - (MonadIO m) => - Word32 -> -- watcher_id - m () -busUnwatchName watcher_id = liftIO $ do - g_bus_unwatch_name watcher_id - return () - - --- function g_bus_unown_name --- Args : [Arg {argName = "owner_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "owner_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bus_unown_name" g_bus_unown_name :: - Word32 -> -- owner_id : TBasicType TUInt32 - IO () - - -busUnownName :: - (MonadIO m) => - Word32 -> -- owner_id - m () -busUnownName owner_id = liftIO $ do - g_bus_unown_name owner_id - return () - - --- function g_bus_own_name_on_connection_with_closures --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bus_own_name_on_connection_with_closures" g_bus_own_name_on_connection_with_closures :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags" - Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure" - IO Word32 - - -busOwnNameOnConnection :: - (MonadIO m, DBusConnectionK a) => - a -> -- connection - T.Text -> -- name - [BusNameOwnerFlags] -> -- flags - Maybe (Closure) -> -- name_acquired_closure - Maybe (Closure) -> -- name_lost_closure - m Word32 -busOwnNameOnConnection connection name flags name_acquired_closure name_lost_closure = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - name' <- textToCString name - let flags' = gflagsToWord flags - maybeName_acquired_closure <- case name_acquired_closure of - Nothing -> return nullPtr - Just jName_acquired_closure -> do - let jName_acquired_closure' = unsafeManagedPtrGetPtr jName_acquired_closure - return jName_acquired_closure' - maybeName_lost_closure <- case name_lost_closure of - Nothing -> return nullPtr - Just jName_lost_closure -> do - let jName_lost_closure' = unsafeManagedPtrGetPtr jName_lost_closure - return jName_lost_closure' - result <- g_bus_own_name_on_connection_with_closures connection' name' flags' maybeName_acquired_closure maybeName_lost_closure - touchManagedPtr connection - whenJust name_acquired_closure touchManagedPtr - whenJust name_lost_closure touchManagedPtr - freeMem name' - return result - - --- function g_bus_own_name_with_closures --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bus_own_name_with_closures" g_bus_own_name_with_closures :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags" - Ptr Closure -> -- bus_acquired_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure" - IO Word32 - - -busOwnName :: - (MonadIO m) => - BusType -> -- bus_type - T.Text -> -- name - [BusNameOwnerFlags] -> -- flags - Maybe (Closure) -> -- bus_acquired_closure - Maybe (Closure) -> -- name_acquired_closure - Maybe (Closure) -> -- name_lost_closure - m Word32 -busOwnName bus_type name flags bus_acquired_closure name_acquired_closure name_lost_closure = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type - name' <- textToCString name - let flags' = gflagsToWord flags - maybeBus_acquired_closure <- case bus_acquired_closure of - Nothing -> return nullPtr - Just jBus_acquired_closure -> do - let jBus_acquired_closure' = unsafeManagedPtrGetPtr jBus_acquired_closure - return jBus_acquired_closure' - maybeName_acquired_closure <- case name_acquired_closure of - Nothing -> return nullPtr - Just jName_acquired_closure -> do - let jName_acquired_closure' = unsafeManagedPtrGetPtr jName_acquired_closure - return jName_acquired_closure' - maybeName_lost_closure <- case name_lost_closure of - Nothing -> return nullPtr - Just jName_lost_closure -> do - let jName_lost_closure' = unsafeManagedPtrGetPtr jName_lost_closure - return jName_lost_closure' - result <- g_bus_own_name_with_closures bus_type' name' flags' maybeBus_acquired_closure maybeName_acquired_closure maybeName_lost_closure - whenJust bus_acquired_closure touchManagedPtr - whenJust name_acquired_closure touchManagedPtr - whenJust name_lost_closure touchManagedPtr - freeMem name' - return result - - --- function g_bus_get_sync --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "DBusConnection" --- throws : True --- Skip return : False - -foreign import ccall "g_bus_get_sync" g_bus_get_sync :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -busGetSync :: - (MonadIO m, CancellableK a) => - BusType -> -- bus_type - Maybe (a) -> -- cancellable - m DBusConnection -busGetSync bus_type cancellable = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_bus_get_sync bus_type' 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 {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "DBusConnection" --- throws : True --- Skip return : False - -foreign import ccall "g_bus_get_finish" g_bus_get_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -busGetFinish :: - (MonadIO m, AsyncResultK a) => - a -> -- res - m DBusConnection -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 {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bus_get" g_bus_get :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -busGet :: - (MonadIO m, CancellableK a) => - BusType -> -- bus_type - Maybe (a) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -busGet bus_type cancellable callback = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type - 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 user_data = nullPtr - g_bus_get bus_type' maybeCancellable maybeCallback user_data - whenJust cancellable touchManagedPtr - return () - - --- function g_async_initable_newv_async --- Args : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TInterface "GObject" "Parameter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_parameters", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TInterface "GObject" "Parameter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr GObject.Parameter -> -- parameters : TInterface "GObject" "Parameter" - Int32 -> -- io_priority : TBasicType TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -asyncInitableNewvAsync :: - (MonadIO m, CancellableK a) => - GType -> -- object_type - Word32 -> -- n_parameters - GObject.Parameter -> -- parameters - Int32 -> -- io_priority - Maybe (a) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -asyncInitableNewvAsync object_type n_parameters parameters io_priority cancellable callback = liftIO $ do - let object_type' = gtypeToCGType object_type - 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 user_data = nullPtr - g_async_initable_newv_async object_type' n_parameters parameters' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr parameters - whenJust cancellable touchManagedPtr - return () - - --- function g_app_info_reset_type_associations --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_reset_type_associations" g_app_info_reset_type_associations :: - CString -> -- content_type : TBasicType TUTF8 - IO () - - -appInfoResetTypeAssociations :: - (MonadIO m) => - T.Text -> -- content_type - m () -appInfoResetTypeAssociations content_type = liftIO $ do - content_type' <- textToCString content_type - g_app_info_reset_type_associations content_type' - freeMem content_type' - return () - - --- function g_app_info_launch_default_for_uri --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- launch_context - m () -appInfoLaunchDefaultForUri uri launch_context = liftIO $ do - uri' <- textToCString uri - maybeLaunch_context <- case launch_context of - Nothing -> return nullPtr - Just jLaunch_context -> do - let jLaunch_context' = unsafeManagedPtrCastPtr jLaunch_context - return jLaunch_context' - onException (do - _ <- propagateGError $ g_app_info_launch_default_for_uri uri' maybeLaunch_context - whenJust launch_context touchManagedPtr - freeMem uri' - return () - ) (do - freeMem uri' - ) - - --- function g_app_info_get_recommended_for_type --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m [AppInfo] -appInfoGetRecommendedForType content_type = liftIO $ do - content_type' <- textToCString content_type - result <- g_app_info_get_recommended_for_type content_type' - checkUnexpectedReturnNULL "g_app_info_get_recommended_for_type" result - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem content_type' - return result'' - - --- function g_app_info_get_fallback_for_type --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m [AppInfo] -appInfoGetFallbackForType content_type = liftIO $ do - content_type' <- textToCString content_type - result <- g_app_info_get_fallback_for_type content_type' - checkUnexpectedReturnNULL "g_app_info_get_fallback_for_type" result - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem content_type' - return result'' - - --- function g_app_info_get_default_for_uri_scheme --- Args : [Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- uri_scheme - m AppInfo -appInfoGetDefaultForUriScheme uri_scheme = liftIO $ do - uri_scheme' <- textToCString uri_scheme - result <- g_app_info_get_default_for_uri_scheme uri_scheme' - checkUnexpectedReturnNULL "g_app_info_get_default_for_uri_scheme" result - result' <- (wrapObject AppInfo) result - freeMem uri_scheme' - return result' - - --- function g_app_info_get_default_for_type --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "must_support_uris", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "must_support_uris", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - Bool -> -- must_support_uris - m AppInfo -appInfoGetDefaultForType content_type must_support_uris = liftIO $ do - content_type' <- textToCString content_type - let must_support_uris' = (fromIntegral . fromEnum) must_support_uris - result <- g_app_info_get_default_for_type content_type' must_support_uris' - checkUnexpectedReturnNULL "g_app_info_get_default_for_type" result - result' <- (wrapObject AppInfo) result - freeMem content_type' - return result' - - --- function g_app_info_get_all_for_type --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m [AppInfo] -appInfoGetAllForType content_type = liftIO $ do - content_type' <- textToCString content_type - result <- g_app_info_get_all_for_type content_type' - checkUnexpectedReturnNULL "g_app_info_get_all_for_type" result - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem content_type' - return result'' - - --- function g_app_info_get_all --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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] -appInfoGetAll = liftIO $ do - result <- g_app_info_get_all - checkUnexpectedReturnNULL "g_app_info_get_all" result - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - return result'' - - --- function g_app_info_create_from_commandline --- Args : [Arg {argName = "commandline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "AppInfoCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "commandline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "AppInfoCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- application_name - [AppInfoCreateFlags] -> -- flags - m AppInfo -appInfoCreateFromCommandline commandline application_name flags = liftIO $ do - commandline' <- textToCString commandline - maybeApplication_name <- case application_name of - Nothing -> return nullPtr - Just jApplication_name -> do - jApplication_name' <- textToCString jApplication_name - return jApplication_name' - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ g_app_info_create_from_commandline commandline' maybeApplication_name flags' - checkUnexpectedReturnNULL "g_app_info_create_from_commandline" result - result' <- (wrapObject AppInfo) result - freeMem commandline' - freeMem maybeApplication_name - return result' - ) (do - freeMem commandline' - freeMem maybeApplication_name - ) - - --- function g_action_print_detailed_name --- Args : [Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- action_name - Maybe (GVariant) -> -- target_value - m T.Text -actionPrintDetailedName action_name target_value = liftIO $ do - action_name' <- textToCString action_name - maybeTarget_value <- case target_value of - Nothing -> return nullPtr - Just jTarget_value -> do - let jTarget_value' = unsafeManagedPtrGetPtr jTarget_value - return jTarget_value' - result <- g_action_print_detailed_name action_name' maybeTarget_value - checkUnexpectedReturnNULL "g_action_print_detailed_name" result - result' <- cstringToText result - freeMem result - freeMem action_name' - return result' - - --- function g_action_parse_detailed_name --- Args : [Arg {argName = "detailed_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "target_value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "detailed_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- detailed_name - m (T.Text,GVariant) -actionParseDetailedName detailed_name = liftIO $ do - detailed_name' <- textToCString detailed_name - action_name <- allocMem :: IO (Ptr CString) - target_value <- allocMem :: IO (Ptr (Ptr GVariant)) - onException (do - _ <- propagateGError $ g_action_parse_detailed_name detailed_name' action_name target_value - action_name' <- peek action_name - action_name'' <- cstringToText action_name' - freeMem action_name' - target_value' <- peek target_value - target_value'' <- wrapGVariantPtr target_value' - freeMem detailed_name' - freeMem action_name - freeMem target_value - return (action_name'', target_value'') - ) (do - freeMem detailed_name' - freeMem action_name - freeMem target_value - ) - - --- function g_action_name_is_valid --- Args : [Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- action_name - m Bool -actionNameIsValid action_name = liftIO $ do - action_name' <- textToCString action_name - result <- g_action_name_is_valid action_name' - let result' = (/= 0) result - freeMem action_name' - return result' + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gio.Functions + ( + + -- * Methods +-- ** busGet + busGet , + + +-- ** busGetFinish + busGetFinish , + + +-- ** busGetSync + busGetSync , + + +-- ** busOwnName + busOwnName , + + +-- ** busOwnNameOnConnection + busOwnNameOnConnection , + + +-- ** busUnownName + busUnownName , + + +-- ** busUnwatchName + busUnwatchName , + + +-- ** busWatchName + busWatchName , + + +-- ** busWatchNameOnConnection + busWatchNameOnConnection , + + +-- ** contentTypeCanBeExecutable + contentTypeCanBeExecutable , + + +-- ** contentTypeEquals + contentTypeEquals , + + +-- ** contentTypeFromMimeType + contentTypeFromMimeType , + + +-- ** contentTypeGetDescription + contentTypeGetDescription , + + +-- ** contentTypeGetGenericIconName + contentTypeGetGenericIconName , + + +-- ** contentTypeGetIcon + contentTypeGetIcon , + + +-- ** contentTypeGetMimeType + contentTypeGetMimeType , + + +-- ** contentTypeGetSymbolicIcon + contentTypeGetSymbolicIcon , + + +-- ** contentTypeGuess + contentTypeGuess , + + +-- ** contentTypeGuessForTree + contentTypeGuessForTree , + + +-- ** contentTypeIsA + contentTypeIsA , + + +-- ** contentTypeIsUnknown + contentTypeIsUnknown , + + +-- ** contentTypesGetRegistered + contentTypesGetRegistered , + + +-- ** dbusAddressEscapeValue + dbusAddressEscapeValue , + + +-- ** dbusAddressGetForBusSync + dbusAddressGetForBusSync , + + +-- ** dbusAddressGetStream + dbusAddressGetStream , + + +-- ** dbusAddressGetStreamFinish + dbusAddressGetStreamFinish , + + +-- ** dbusAddressGetStreamSync + dbusAddressGetStreamSync , + + +-- ** dbusGenerateGuid + dbusGenerateGuid , + + +-- ** dbusGvalueToGvariant + dbusGvalueToGvariant , + + +-- ** dbusGvariantToGvalue + dbusGvariantToGvalue , + + +-- ** dbusIsAddress + dbusIsAddress , + + +-- ** dbusIsGuid + dbusIsGuid , + + +-- ** dbusIsInterfaceName + dbusIsInterfaceName , + + +-- ** dbusIsMemberName + dbusIsMemberName , + + +-- ** dbusIsName + dbusIsName , + + +-- ** dbusIsSupportedAddress + dbusIsSupportedAddress , + + +-- ** dbusIsUniqueName + dbusIsUniqueName , + + +-- ** ioErrorFromErrno + ioErrorFromErrno , + + +-- ** ioErrorQuark + ioErrorQuark , + + +-- ** ioModulesScanAllInDirectory + ioModulesScanAllInDirectory , + + +-- ** ioModulesScanAllInDirectoryWithScope + ioModulesScanAllInDirectoryWithScope , + + +-- ** ioSchedulerCancelAllJobs + ioSchedulerCancelAllJobs , + + +-- ** ioSchedulerPushJob + ioSchedulerPushJob , + + +-- ** networkingInit + networkingInit , + + +-- ** pollableSourceNew + pollableSourceNew , + + +-- ** pollableSourceNewFull + pollableSourceNewFull , + + +-- ** pollableStreamRead + pollableStreamRead , + + +-- ** pollableStreamWrite + pollableStreamWrite , + + +-- ** pollableStreamWriteAll + pollableStreamWriteAll , + + +-- ** resourcesEnumerateChildren + resourcesEnumerateChildren , + + +-- ** resourcesGetInfo + resourcesGetInfo , + + +-- ** resourcesLookupData + resourcesLookupData , + + +-- ** resourcesOpenStream + resourcesOpenStream , + + +-- ** resourcesRegister + resourcesRegister , + + +-- ** resourcesUnregister + resourcesUnregister , + + +-- ** simpleAsyncReportGerrorInIdle + simpleAsyncReportGerrorInIdle , + + +-- ** unixIsMountPathSystemInternal + unixIsMountPathSystemInternal , + + +-- ** unixMountCompare + unixMountCompare , + + +-- ** unixMountFree + unixMountFree , + + +-- ** unixMountGetDevicePath + unixMountGetDevicePath , + + +-- ** unixMountGetFsType + unixMountGetFsType , + + +-- ** unixMountGetMountPath + unixMountGetMountPath , + + +-- ** unixMountGuessCanEject + unixMountGuessCanEject , + + +-- ** unixMountGuessIcon + unixMountGuessIcon , + + +-- ** unixMountGuessName + unixMountGuessName , + + +-- ** unixMountGuessShouldDisplay + unixMountGuessShouldDisplay , + + +-- ** unixMountGuessSymbolicIcon + unixMountGuessSymbolicIcon , + + +-- ** unixMountIsReadonly + unixMountIsReadonly , + + +-- ** unixMountIsSystemInternal + unixMountIsSystemInternal , + + +-- ** unixMountPointsChangedSince + unixMountPointsChangedSince , + + +-- ** unixMountsChangedSince + unixMountsChangedSince , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gio.Types +import GI.Gio.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +-- function g_unix_mounts_changed_since +-- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mounts_changed_since" g_unix_mounts_changed_since :: + Word64 -> -- time : TBasicType TUInt64 + IO CInt + + +unixMountsChangedSince :: + (MonadIO m) => + Word64 -- time + -> m Bool -- result +unixMountsChangedSince time = liftIO $ do + result <- g_unix_mounts_changed_since time + let result' = (/= 0) result + return result' + + +-- function g_unix_mount_points_changed_since +-- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_points_changed_since" g_unix_mount_points_changed_since :: + Word64 -> -- time : TBasicType TUInt64 + IO CInt + + +unixMountPointsChangedSince :: + (MonadIO m) => + Word64 -- time + -> m Bool -- result +unixMountPointsChangedSince time = liftIO $ do + result <- g_unix_mount_points_changed_since time + let result' = (/= 0) result + return result' + + +-- function g_unix_mount_is_system_internal +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_is_system_internal" g_unix_mount_is_system_internal :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CInt + + +unixMountIsSystemInternal :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Bool -- result +unixMountIsSystemInternal mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_is_system_internal mountEntry' + let result' = (/= 0) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_is_readonly +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_is_readonly" g_unix_mount_is_readonly :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CInt + + +unixMountIsReadonly :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Bool -- result +unixMountIsReadonly mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_is_readonly mountEntry' + let result' = (/= 0) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_guess_symbolic_icon +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "Icon" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_guess_symbolic_icon" g_unix_mount_guess_symbolic_icon :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO (Ptr Icon) + + +unixMountGuessSymbolicIcon :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Icon -- result +unixMountGuessSymbolicIcon mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_guess_symbolic_icon mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_guess_symbolic_icon" result + result' <- (wrapObject Icon) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_guess_should_display +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_guess_should_display" g_unix_mount_guess_should_display :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CInt + + +unixMountGuessShouldDisplay :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Bool -- result +unixMountGuessShouldDisplay mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_guess_should_display mountEntry' + let result' = (/= 0) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_guess_name +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_guess_name" g_unix_mount_guess_name :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CString + + +unixMountGuessName :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m T.Text -- result +unixMountGuessName mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_guess_name mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_guess_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_guess_icon +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "Icon" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_guess_icon" g_unix_mount_guess_icon :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO (Ptr Icon) + + +unixMountGuessIcon :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Icon -- result +unixMountGuessIcon mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_guess_icon mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_guess_icon" result + result' <- (wrapObject Icon) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_guess_can_eject +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_guess_can_eject" g_unix_mount_guess_can_eject :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CInt + + +unixMountGuessCanEject :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m Bool -- result +unixMountGuessCanEject mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_guess_can_eject mountEntry' + let result' = (/= 0) result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_get_mount_path +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_get_mount_path" g_unix_mount_get_mount_path :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CString + + +unixMountGetMountPath :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m T.Text -- result +unixMountGetMountPath mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_get_mount_path mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_get_mount_path" result + result' <- cstringToText result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_get_fs_type +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_get_fs_type" g_unix_mount_get_fs_type :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CString + + +unixMountGetFsType :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m T.Text -- result +unixMountGetFsType mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_get_fs_type mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_get_fs_type" result + result' <- cstringToText result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_get_device_path +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_get_device_path" g_unix_mount_get_device_path :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO CString + + +unixMountGetDevicePath :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m T.Text -- result +unixMountGetDevicePath mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + result <- g_unix_mount_get_device_path mountEntry' + checkUnexpectedReturnNULL "g_unix_mount_get_device_path" result + result' <- cstringToText result + touchManagedPtr mountEntry + return result' + + +-- function g_unix_mount_free +-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_free" g_unix_mount_free :: + Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry" + IO () + + +unixMountFree :: + (MonadIO m) => + UnixMountEntry -- mountEntry + -> m () -- result +unixMountFree mountEntry = liftIO $ do + let mountEntry' = unsafeManagedPtrGetPtr mountEntry + g_unix_mount_free mountEntry' + touchManagedPtr mountEntry + return () + + +-- function g_unix_mount_compare +-- Args : [Arg {argCName = "mount1", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_mount_compare" g_unix_mount_compare :: + Ptr UnixMountEntry -> -- mount1 : TInterface "Gio" "UnixMountEntry" + Ptr UnixMountEntry -> -- mount2 : TInterface "Gio" "UnixMountEntry" + IO Int32 + + +unixMountCompare :: + (MonadIO m) => + UnixMountEntry -- mount1 + -> UnixMountEntry -- mount2 + -> m Int32 -- result +unixMountCompare mount1 mount2 = liftIO $ do + let mount1' = unsafeManagedPtrGetPtr mount1 + let mount2' = unsafeManagedPtrGetPtr mount2 + result <- g_unix_mount_compare mount1' mount2' + touchManagedPtr mount1 + touchManagedPtr mount2 + return result + + +-- function g_unix_is_mount_path_system_internal +-- Args : [Arg {argCName = "mount_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_is_mount_path_system_internal" g_unix_is_mount_path_system_internal :: + CString -> -- mount_path : TBasicType TUTF8 + IO CInt + + +unixIsMountPathSystemInternal :: + (MonadIO m) => + T.Text -- mountPath + -> m Bool -- result +unixIsMountPathSystemInternal mountPath = liftIO $ do + mountPath' <- textToCString mountPath + result <- g_unix_is_mount_path_system_internal mountPath' + let result' = (/= 0) result + freeMem mountPath' + return result' + + +-- function g_simple_async_report_gerror_in_idle +-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_simple_async_report_gerror_in_idle" g_simple_async_report_gerror_in_idle :: + Ptr GObject.Object -> -- object : TInterface "GObject" "Object" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + Ptr GError -> -- error : TError + IO () + +{-# DEPRECATED simpleAsyncReportGerrorInIdle ["(Since version 2.46)","Use g_task_report_error()."]#-} +simpleAsyncReportGerrorInIdle :: + (MonadIO m, GObject.ObjectK a) => + Maybe (a) -- object + -> Maybe (AsyncReadyCallback) -- callback + -> GError -- error_ + -> m () -- result +simpleAsyncReportGerrorInIdle object callback error_ = liftIO $ do + maybeObject <- case object of + Nothing -> return nullPtr + Just jObject -> do + let jObject' = unsafeManagedPtrCastPtr jObject + return jObject' + ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let error_' = unsafeManagedPtrGetPtr error_ + let userData = nullPtr + g_simple_async_report_gerror_in_idle maybeObject maybeCallback userData error_' + whenJust object touchManagedPtr + touchManagedPtr error_ + return () + + +-- function g_resources_unregister +-- Args : [Arg {argCName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_resources_unregister" g_resources_unregister :: + Ptr Resource -> -- resource : TInterface "Gio" "Resource" + IO () + + +resourcesUnregister :: + (MonadIO m) => + Resource -- resource + -> m () -- result +resourcesUnregister resource = liftIO $ do + let resource' = unsafeManagedPtrGetPtr resource + g_resources_unregister resource' + touchManagedPtr resource + return () + + +-- function g_resources_register +-- Args : [Arg {argCName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_resources_register" g_resources_register :: + Ptr Resource -> -- resource : TInterface "Gio" "Resource" + IO () + + +resourcesRegister :: + (MonadIO m) => + Resource -- resource + -> m () -- result +resourcesRegister resource = liftIO $ do + let resource' = unsafeManagedPtrGetPtr resource + g_resources_register resource' + touchManagedPtr resource + return () + + +-- function g_resources_open_stream +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "g_resources_open_stream" g_resources_open_stream :: + CString -> -- path : TBasicType TUTF8 + CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" + Ptr (Ptr GError) -> -- error + IO (Ptr InputStream) + + +resourcesOpenStream :: + (MonadIO m) => + T.Text -- path + -> [ResourceLookupFlags] -- lookupFlags + -> m InputStream -- result +resourcesOpenStream path lookupFlags = liftIO $ do + path' <- textToCString path + let lookupFlags' = gflagsToWord lookupFlags + onException (do + result <- propagateGError $ g_resources_open_stream path' lookupFlags' + checkUnexpectedReturnNULL "g_resources_open_stream" result + result' <- (wrapObject InputStream) result + freeMem path' + return result' + ) (do + freeMem path' + ) + + +-- function g_resources_lookup_data +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GLib" "Bytes" +-- throws : True +-- Skip return : False + +foreign import ccall "g_resources_lookup_data" g_resources_lookup_data :: + CString -> -- path : TBasicType TUTF8 + CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" + Ptr (Ptr GError) -> -- error + IO (Ptr GLib.Bytes) + + +resourcesLookupData :: + (MonadIO m) => + T.Text -- path + -> [ResourceLookupFlags] -- lookupFlags + -> m GLib.Bytes -- result +resourcesLookupData path lookupFlags = liftIO $ do + path' <- textToCString path + let lookupFlags' = gflagsToWord lookupFlags + onException (do + result <- propagateGError $ g_resources_lookup_data path' lookupFlags' + checkUnexpectedReturnNULL "g_resources_lookup_data" result + result' <- (wrapBoxed GLib.Bytes) result + freeMem path' + return result' + ) (do + freeMem path' + ) + + +-- function g_resources_get_info +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_resources_get_info" g_resources_get_info :: + CString -> -- path : TBasicType TUTF8 + CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" + Ptr Word64 -> -- size : TBasicType TUInt64 + Ptr Word32 -> -- flags : TBasicType TUInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +resourcesGetInfo :: + (MonadIO m) => + T.Text -- path + -> [ResourceLookupFlags] -- lookupFlags + -> m (Word64,Word32) -- result +resourcesGetInfo path lookupFlags = liftIO $ do + path' <- textToCString path + let lookupFlags' = gflagsToWord lookupFlags + size <- allocMem :: IO (Ptr Word64) + flags <- allocMem :: IO (Ptr Word32) + onException (do + _ <- propagateGError $ g_resources_get_info path' lookupFlags' size flags + size' <- peek size + flags' <- peek flags + freeMem path' + freeMem size + freeMem flags + return (size', flags') + ) (do + freeMem path' + freeMem size + freeMem flags + ) + + +-- function g_resources_enumerate_children +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_resources_enumerate_children" g_resources_enumerate_children :: + CString -> -- path : TBasicType TUTF8 + CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +resourcesEnumerateChildren :: + (MonadIO m) => + T.Text -- path + -> [ResourceLookupFlags] -- lookupFlags + -> m [T.Text] -- result +resourcesEnumerateChildren path lookupFlags = liftIO $ do + path' <- textToCString path + let lookupFlags' = gflagsToWord lookupFlags + onException (do + result <- propagateGError $ g_resources_enumerate_children path' lookupFlags' + checkUnexpectedReturnNULL "g_resources_enumerate_children" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem path' + return result' + ) (do + freeMem path' + ) + + +-- function g_pollable_stream_write_all +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_pollable_stream_write_all" g_pollable_stream_write_all :: + Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- count : TBasicType TUInt64 + CInt -> -- blocking : TBasicType TBoolean + Ptr Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO CInt + + +pollableStreamWriteAll :: + (MonadIO m, OutputStreamK a, CancellableK b) => + a -- stream + -> ByteString -- buffer + -> Bool -- blocking + -> Maybe (b) -- cancellable + -> m (Word64) -- result +pollableStreamWriteAll stream buffer blocking cancellable = liftIO $ do + let count = fromIntegral $ B.length buffer + let stream' = unsafeManagedPtrCastPtr stream + buffer' <- packByteString buffer + let blocking' = (fromIntegral . fromEnum) blocking + bytesWritten <- allocMem :: IO (Ptr Word64) + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + _ <- propagateGError $ g_pollable_stream_write_all stream' buffer' count blocking' bytesWritten maybeCancellable + bytesWritten' <- peek bytesWritten + touchManagedPtr stream + whenJust cancellable touchManagedPtr + freeMem buffer' + freeMem bytesWritten + return bytesWritten' + ) (do + freeMem buffer' + freeMem bytesWritten + ) + + +-- function g_pollable_stream_write +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_pollable_stream_write" g_pollable_stream_write :: + Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- count : TBasicType TUInt64 + CInt -> -- blocking : TBasicType TBoolean + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO Int64 + + +pollableStreamWrite :: + (MonadIO m, OutputStreamK a, CancellableK b) => + a -- stream + -> ByteString -- buffer + -> Bool -- blocking + -> Maybe (b) -- cancellable + -> m Int64 -- result +pollableStreamWrite stream buffer blocking cancellable = liftIO $ do + let count = fromIntegral $ B.length buffer + let stream' = unsafeManagedPtrCastPtr stream + buffer' <- packByteString buffer + let blocking' = (fromIntegral . fromEnum) blocking + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ g_pollable_stream_write stream' buffer' count blocking' maybeCancellable + touchManagedPtr stream + whenJust cancellable touchManagedPtr + freeMem buffer' + return result + ) (do + freeMem buffer' + ) + + +-- function g_pollable_stream_read +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_pollable_stream_read" g_pollable_stream_read :: + Ptr InputStream -> -- stream : TInterface "Gio" "InputStream" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- count : TBasicType TUInt64 + CInt -> -- blocking : TBasicType TBoolean + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO Int64 + + +pollableStreamRead :: + (MonadIO m, InputStreamK a, CancellableK b) => + a -- stream + -> ByteString -- buffer + -> Bool -- blocking + -> Maybe (b) -- cancellable + -> m Int64 -- result +pollableStreamRead stream buffer blocking cancellable = liftIO $ do + let count = fromIntegral $ B.length buffer + let stream' = unsafeManagedPtrCastPtr stream + buffer' <- packByteString buffer + let blocking' = (fromIntegral . fromEnum) blocking + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ g_pollable_stream_read stream' buffer' count blocking' maybeCancellable + touchManagedPtr stream + whenJust cancellable touchManagedPtr + freeMem buffer' + return result + ) (do + freeMem buffer' + ) + + +-- function g_pollable_source_new_full +-- Args : [Arg {argCName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_pollable_source_new_full" g_pollable_source_new_full :: + Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object" + Ptr GLib.Source -> -- child_source : TInterface "GLib" "Source" + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO (Ptr GLib.Source) + + +pollableSourceNewFull :: + (MonadIO m, GObject.ObjectK a, CancellableK b) => + a -- pollableStream + -> Maybe (GLib.Source) -- childSource + -> Maybe (b) -- cancellable + -> m GLib.Source -- result +pollableSourceNewFull pollableStream childSource cancellable = liftIO $ do + let pollableStream' = unsafeManagedPtrCastPtr pollableStream + maybeChildSource <- case childSource of + Nothing -> return nullPtr + Just jChildSource -> do + let jChildSource' = unsafeManagedPtrGetPtr jChildSource + return jChildSource' + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + result <- g_pollable_source_new_full pollableStream' maybeChildSource maybeCancellable + checkUnexpectedReturnNULL "g_pollable_source_new_full" result + result' <- (wrapBoxed GLib.Source) result + touchManagedPtr pollableStream + whenJust childSource touchManagedPtr + whenJust cancellable touchManagedPtr + return result' + + +-- function g_pollable_source_new +-- Args : [Arg {argCName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_pollable_source_new" g_pollable_source_new :: + Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object" + IO (Ptr GLib.Source) + + +pollableSourceNew :: + (MonadIO m, GObject.ObjectK a) => + a -- pollableStream + -> m GLib.Source -- result +pollableSourceNew pollableStream = liftIO $ do + let pollableStream' = unsafeManagedPtrCastPtr pollableStream + result <- g_pollable_source_new pollableStream' + checkUnexpectedReturnNULL "g_pollable_source_new" result + result' <- (wrapBoxed GLib.Source) result + touchManagedPtr pollableStream + return result' + + +-- function g_networking_init +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_networking_init" g_networking_init :: + IO () + + +networkingInit :: + (MonadIO m) => + m () -- result +networkingInit = liftIO $ do + g_networking_init + return () + + +-- function g_io_scheduler_push_job +-- Args : [Arg {argCName = "job_func", argType = TInterface "Gio" "IOSchedulerJobFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_scheduler_push_job" g_io_scheduler_push_job :: + FunPtr IOSchedulerJobFuncC -> -- job_func : TInterface "Gio" "IOSchedulerJobFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO () + +{-# DEPRECATED ioSchedulerPushJob ["use #GThreadPool or g_task_run_in_thread()"]#-} +ioSchedulerPushJob :: + (MonadIO m, CancellableK a) => + IOSchedulerJobFunc -- jobFunc + -> Int32 -- ioPriority + -> Maybe (a) -- cancellable + -> m () -- result +ioSchedulerPushJob jobFunc ioPriority cancellable = liftIO $ do + jobFunc' <- mkIOSchedulerJobFunc (iOSchedulerJobFuncWrapper Nothing jobFunc) + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + let userData = castFunPtrToPtr jobFunc' + let notify = safeFreeFunPtrPtr + g_io_scheduler_push_job jobFunc' userData notify ioPriority maybeCancellable + whenJust cancellable touchManagedPtr + return () + + +-- function g_io_scheduler_cancel_all_jobs +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_scheduler_cancel_all_jobs" g_io_scheduler_cancel_all_jobs :: + IO () + +{-# DEPRECATED ioSchedulerCancelAllJobs ["You should never call this function, since you don't","know how other libraries in your program might be making use of","gioscheduler."]#-} +ioSchedulerCancelAllJobs :: + (MonadIO m) => + m () -- result +ioSchedulerCancelAllJobs = liftIO $ do + g_io_scheduler_cancel_all_jobs + return () + + +-- function g_io_modules_scan_all_in_directory_with_scope +-- Args : [Arg {argCName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_modules_scan_all_in_directory_with_scope" g_io_modules_scan_all_in_directory_with_scope :: + CString -> -- dirname : TBasicType TUTF8 + Ptr IOModuleScope -> -- scope : TInterface "Gio" "IOModuleScope" + IO () + + +ioModulesScanAllInDirectoryWithScope :: + (MonadIO m) => + T.Text -- dirname + -> IOModuleScope -- scope + -> m () -- result +ioModulesScanAllInDirectoryWithScope dirname scope = liftIO $ do + dirname' <- textToCString dirname + let scope' = unsafeManagedPtrGetPtr scope + g_io_modules_scan_all_in_directory_with_scope dirname' scope' + touchManagedPtr scope + freeMem dirname' + return () + + +-- function g_io_modules_scan_all_in_directory +-- Args : [Arg {argCName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_modules_scan_all_in_directory" g_io_modules_scan_all_in_directory :: + CString -> -- dirname : TBasicType TUTF8 + IO () + + +ioModulesScanAllInDirectory :: + (MonadIO m) => + T.Text -- dirname + -> m () -- result +ioModulesScanAllInDirectory dirname = liftIO $ do + dirname' <- textToCString dirname + g_io_modules_scan_all_in_directory dirname' + freeMem dirname' + return () + + +-- function g_io_error_quark +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_error_quark" g_io_error_quark :: + IO Word32 + + +ioErrorQuark :: + (MonadIO m) => + m Word32 -- result +ioErrorQuark = liftIO $ do + result <- g_io_error_quark + return result + + +-- function g_io_error_from_errno +-- Args : [Arg {argCName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "IOErrorEnum" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_error_from_errno" g_io_error_from_errno :: + Int32 -> -- err_no : TBasicType TInt32 + IO CUInt + + +ioErrorFromErrno :: + (MonadIO m) => + Int32 -- errNo + -> m IOErrorEnum -- result +ioErrorFromErrno errNo = liftIO $ do + result <- g_io_error_from_errno errNo + let result' = (toEnum . fromIntegral) result + return result' + + +-- function g_dbus_is_unique_name +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_unique_name" g_dbus_is_unique_name :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsUniqueName :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsUniqueName string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_unique_name string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_is_supported_address +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_dbus_is_supported_address" g_dbus_is_supported_address :: + CString -> -- string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +dbusIsSupportedAddress :: + (MonadIO m) => + T.Text -- string + -> m () -- result +dbusIsSupportedAddress string = liftIO $ do + string' <- textToCString string + onException (do + _ <- propagateGError $ g_dbus_is_supported_address string' + freeMem string' + return () + ) (do + freeMem string' + ) + + +-- function g_dbus_is_name +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_name" g_dbus_is_name :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsName :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsName string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_name string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_is_member_name +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_member_name" g_dbus_is_member_name :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsMemberName :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsMemberName string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_member_name string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_is_interface_name +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_interface_name" g_dbus_is_interface_name :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsInterfaceName :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsInterfaceName string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_interface_name string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_is_guid +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_guid" g_dbus_is_guid :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsGuid :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsGuid string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_guid string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_is_address +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_is_address" g_dbus_is_address :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +dbusIsAddress :: + (MonadIO m) => + T.Text -- string + -> m Bool -- result +dbusIsAddress string = liftIO $ do + string' <- textToCString string + result <- g_dbus_is_address string' + let result' = (/= 0) result + freeMem string' + return result' + + +-- function g_dbus_gvariant_to_gvalue +-- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_gvalue", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_gvariant_to_gvalue" g_dbus_gvariant_to_gvalue :: + Ptr GVariant -> -- value : TVariant + Ptr GValue -> -- out_gvalue : TInterface "GObject" "Value" + IO () + + +dbusGvariantToGvalue :: + (MonadIO m) => + GVariant -- value + -> m (GValue) -- result +dbusGvariantToGvalue value = liftIO $ do + let value' = unsafeManagedPtrGetPtr value + outGvalue <- callocBoxedBytes 24 :: IO (Ptr GValue) + g_dbus_gvariant_to_gvalue value' outGvalue + outGvalue' <- (wrapBoxed GValue) outGvalue + return outGvalue' + + +-- function g_dbus_gvalue_to_gvariant +-- Args : [Arg {argCName = "gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TVariant +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_gvalue_to_gvariant" g_dbus_gvalue_to_gvariant :: + Ptr GValue -> -- gvalue : TInterface "GObject" "Value" + Ptr GLib.VariantType -> -- type : TInterface "GLib" "VariantType" + IO (Ptr GVariant) + + +dbusGvalueToGvariant :: + (MonadIO m) => + GValue -- gvalue + -> GLib.VariantType -- type_ + -> m GVariant -- result +dbusGvalueToGvariant gvalue type_ = liftIO $ do + let gvalue' = unsafeManagedPtrGetPtr gvalue + let type_' = unsafeManagedPtrGetPtr type_ + result <- g_dbus_gvalue_to_gvariant gvalue' type_' + checkUnexpectedReturnNULL "g_dbus_gvalue_to_gvariant" result + result' <- wrapGVariantPtr result + touchManagedPtr gvalue + touchManagedPtr type_ + return result' + + +-- function g_dbus_generate_guid +-- Args : [] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_generate_guid" g_dbus_generate_guid :: + IO CString + + +dbusGenerateGuid :: + (MonadIO m) => + m T.Text -- result +dbusGenerateGuid = liftIO $ do + result <- g_dbus_generate_guid + checkUnexpectedReturnNULL "g_dbus_generate_guid" result + result' <- cstringToText result + freeMem result + return result' + + +-- function g_dbus_address_get_stream_sync +-- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "IOStream" +-- throws : True +-- Skip return : False + +foreign import ccall "g_dbus_address_get_stream_sync" g_dbus_address_get_stream_sync :: + CString -> -- address : TBasicType TUTF8 + CString -> -- out_guid : TBasicType TUTF8 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr IOStream) + + +dbusAddressGetStreamSync :: + (MonadIO m, CancellableK a) => + T.Text -- address + -> T.Text -- outGuid + -> Maybe (a) -- cancellable + -> m IOStream -- result +dbusAddressGetStreamSync address outGuid cancellable = liftIO $ do + address' <- textToCString address + outGuid' <- textToCString outGuid + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ g_dbus_address_get_stream_sync address' outGuid' maybeCancellable + checkUnexpectedReturnNULL "g_dbus_address_get_stream_sync" result + result' <- (wrapObject IOStream) result + whenJust cancellable touchManagedPtr + freeMem address' + freeMem outGuid' + return result' + ) (do + freeMem address' + freeMem outGuid' + ) + + +-- function g_dbus_address_get_stream_finish +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "IOStream" +-- throws : True +-- Skip return : False + +foreign import ccall "g_dbus_address_get_stream_finish" g_dbus_address_get_stream_finish :: + Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" + CString -> -- out_guid : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr IOStream) + + +dbusAddressGetStreamFinish :: + (MonadIO m, AsyncResultK a) => + a -- res + -> T.Text -- outGuid + -> m IOStream -- result +dbusAddressGetStreamFinish res outGuid = liftIO $ do + let res' = unsafeManagedPtrCastPtr res + outGuid' <- textToCString outGuid + onException (do + result <- propagateGError $ g_dbus_address_get_stream_finish res' outGuid' + checkUnexpectedReturnNULL "g_dbus_address_get_stream_finish" result + result' <- (wrapObject IOStream) result + touchManagedPtr res + freeMem outGuid' + return result' + ) (do + freeMem outGuid' + ) + + +-- function g_dbus_address_get_stream +-- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_address_get_stream" g_dbus_address_get_stream :: + CString -> -- address : TBasicType TUTF8 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +dbusAddressGetStream :: + (MonadIO m, CancellableK a) => + T.Text -- address + -> Maybe (a) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result +dbusAddressGetStream address cancellable callback = liftIO $ do + address' <- textToCString address + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + g_dbus_address_get_stream address' maybeCancellable maybeCallback userData + whenJust cancellable touchManagedPtr + freeMem address' + return () + + +-- function g_dbus_address_get_for_bus_sync +-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_dbus_address_get_for_bus_sync" g_dbus_address_get_for_bus_sync :: + CUInt -> -- bus_type : TInterface "Gio" "BusType" + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO CString + + +dbusAddressGetForBusSync :: + (MonadIO m, CancellableK a) => + BusType -- busType + -> Maybe (a) -- cancellable + -> m T.Text -- result +dbusAddressGetForBusSync busType cancellable = liftIO $ do + let busType' = (fromIntegral . fromEnum) busType + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ g_dbus_address_get_for_bus_sync busType' maybeCancellable + checkUnexpectedReturnNULL "g_dbus_address_get_for_bus_sync" result + result' <- cstringToText result + freeMem result + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + + +-- function g_dbus_address_escape_value +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_address_escape_value" g_dbus_address_escape_value :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +dbusAddressEscapeValue :: + (MonadIO m) => + T.Text -- string + -> m T.Text -- result +dbusAddressEscapeValue string = liftIO $ do + string' <- textToCString string + result <- g_dbus_address_escape_value string' + checkUnexpectedReturnNULL "g_dbus_address_escape_value" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + + +-- function g_content_types_get_registered +-- Args : [] +-- Lengths : [] +-- returnType : TGList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_types_get_registered" g_content_types_get_registered :: + IO (Ptr (GList CString)) + + +contentTypesGetRegistered :: + (MonadIO m) => + m [T.Text] -- result +contentTypesGetRegistered = liftIO $ do + result <- g_content_types_get_registered + checkUnexpectedReturnNULL "g_content_types_get_registered" result + result' <- unpackGList result + result'' <- mapM cstringToText result' + mapGList freeMem result + g_list_free result + return result'' + + +-- function g_content_type_is_unknown +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_is_unknown" g_content_type_is_unknown :: + CString -> -- type : TBasicType TUTF8 + IO CInt + + +contentTypeIsUnknown :: + (MonadIO m) => + T.Text -- type_ + -> m Bool -- result +contentTypeIsUnknown type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_is_unknown type_' + let result' = (/= 0) result + freeMem type_' + return result' + + +-- function g_content_type_is_a +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_is_a" g_content_type_is_a :: + CString -> -- type : TBasicType TUTF8 + CString -> -- supertype : TBasicType TUTF8 + IO CInt + + +contentTypeIsA :: + (MonadIO m) => + T.Text -- type_ + -> T.Text -- supertype + -> m Bool -- result +contentTypeIsA type_ supertype = liftIO $ do + type_' <- textToCString type_ + supertype' <- textToCString supertype + result <- g_content_type_is_a type_' supertype' + let result' = (/= 0) result + freeMem type_' + freeMem supertype' + return result' + + +-- function g_content_type_guess_for_tree +-- Args : [Arg {argCName = "root", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_guess_for_tree" g_content_type_guess_for_tree :: + Ptr File -> -- root : TInterface "Gio" "File" + IO (Ptr CString) + + +contentTypeGuessForTree :: + (MonadIO m, FileK a) => + a -- root + -> m [T.Text] -- result +contentTypeGuessForTree root = liftIO $ do + let root' = unsafeManagedPtrCastPtr root + result <- g_content_type_guess_for_tree root' + checkUnexpectedReturnNULL "g_content_type_guess_for_tree" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr root + return result' + + +-- function g_content_type_guess +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result_uncertain", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_guess" g_content_type_guess :: + CString -> -- filename : TBasicType TUTF8 + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- data_size : TBasicType TUInt64 + Ptr CInt -> -- result_uncertain : TBasicType TBoolean + IO CString + + +contentTypeGuess :: + (MonadIO m) => + Maybe (T.Text) -- filename + -> Maybe (ByteString) -- data_ + -> m (T.Text,Bool) -- result +contentTypeGuess filename data_ = liftIO $ do + let dataSize = case data_ of + Nothing -> 0 + Just jData_ -> fromIntegral $ B.length jData_ + maybeFilename <- case filename of + Nothing -> return nullPtr + Just jFilename -> do + jFilename' <- textToCString jFilename + return jFilename' + maybeData_ <- case data_ of + Nothing -> return nullPtr + Just jData_ -> do + jData_' <- packByteString jData_ + return jData_' + resultUncertain <- allocMem :: IO (Ptr CInt) + result <- g_content_type_guess maybeFilename maybeData_ dataSize resultUncertain + checkUnexpectedReturnNULL "g_content_type_guess" result + result' <- cstringToText result + freeMem result + resultUncertain' <- peek resultUncertain + let resultUncertain'' = (/= 0) resultUncertain' + freeMem maybeFilename + freeMem maybeData_ + freeMem resultUncertain + return (result', resultUncertain'') + + +-- function g_content_type_get_symbolic_icon +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "Icon" +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_get_symbolic_icon" g_content_type_get_symbolic_icon :: + CString -> -- type : TBasicType TUTF8 + IO (Ptr Icon) + + +contentTypeGetSymbolicIcon :: + (MonadIO m) => + T.Text -- type_ + -> m Icon -- result +contentTypeGetSymbolicIcon type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_get_symbolic_icon type_' + checkUnexpectedReturnNULL "g_content_type_get_symbolic_icon" result + result' <- (wrapObject Icon) result + freeMem type_' + return result' + + +-- function g_content_type_get_mime_type +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_get_mime_type" g_content_type_get_mime_type :: + CString -> -- type : TBasicType TUTF8 + IO CString + + +contentTypeGetMimeType :: + (MonadIO m) => + T.Text -- type_ + -> m T.Text -- result +contentTypeGetMimeType type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_get_mime_type type_' + checkUnexpectedReturnNULL "g_content_type_get_mime_type" result + result' <- cstringToText result + freeMem result + freeMem type_' + return result' + + +-- function g_content_type_get_icon +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "Icon" +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_get_icon" g_content_type_get_icon :: + CString -> -- type : TBasicType TUTF8 + IO (Ptr Icon) + + +contentTypeGetIcon :: + (MonadIO m) => + T.Text -- type_ + -> m Icon -- result +contentTypeGetIcon type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_get_icon type_' + checkUnexpectedReturnNULL "g_content_type_get_icon" result + result' <- (wrapObject Icon) result + freeMem type_' + return result' + + +-- function g_content_type_get_generic_icon_name +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_get_generic_icon_name" g_content_type_get_generic_icon_name :: + CString -> -- type : TBasicType TUTF8 + IO CString + + +contentTypeGetGenericIconName :: + (MonadIO m) => + T.Text -- type_ + -> m T.Text -- result +contentTypeGetGenericIconName type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_get_generic_icon_name type_' + checkUnexpectedReturnNULL "g_content_type_get_generic_icon_name" result + result' <- cstringToText result + freeMem result + freeMem type_' + return result' + + +-- function g_content_type_get_description +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_get_description" g_content_type_get_description :: + CString -> -- type : TBasicType TUTF8 + IO CString + + +contentTypeGetDescription :: + (MonadIO m) => + T.Text -- type_ + -> m T.Text -- result +contentTypeGetDescription type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_get_description type_' + checkUnexpectedReturnNULL "g_content_type_get_description" result + result' <- cstringToText result + freeMem result + freeMem type_' + return result' + + +-- function g_content_type_from_mime_type +-- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_from_mime_type" g_content_type_from_mime_type :: + CString -> -- mime_type : TBasicType TUTF8 + IO CString + + +contentTypeFromMimeType :: + (MonadIO m) => + T.Text -- mimeType + -> m T.Text -- result +contentTypeFromMimeType mimeType = liftIO $ do + mimeType' <- textToCString mimeType + result <- g_content_type_from_mime_type mimeType' + checkUnexpectedReturnNULL "g_content_type_from_mime_type" result + result' <- cstringToText result + freeMem result + freeMem mimeType' + return result' + + +-- function g_content_type_equals +-- Args : [Arg {argCName = "type1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_equals" g_content_type_equals :: + CString -> -- type1 : TBasicType TUTF8 + CString -> -- type2 : TBasicType TUTF8 + IO CInt + + +contentTypeEquals :: + (MonadIO m) => + T.Text -- type1 + -> T.Text -- type2 + -> m Bool -- result +contentTypeEquals type1 type2 = liftIO $ do + type1' <- textToCString type1 + type2' <- textToCString type2 + result <- g_content_type_equals type1' type2' + let result' = (/= 0) result + freeMem type1' + freeMem type2' + return result' + + +-- function g_content_type_can_be_executable +-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_content_type_can_be_executable" g_content_type_can_be_executable :: + CString -> -- type : TBasicType TUTF8 + IO CInt + + +contentTypeCanBeExecutable :: + (MonadIO m) => + T.Text -- type_ + -> m Bool -- result +contentTypeCanBeExecutable type_ = liftIO $ do + type_' <- textToCString type_ + result <- g_content_type_can_be_executable type_' + let result' = (/= 0) result + freeMem type_' + return result' + + +-- function g_bus_watch_name_on_connection_with_closures +-- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_watch_name_on_connection_with_closures" g_bus_watch_name_on_connection_with_closures :: + Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" + CString -> -- name : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags" + Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure" + Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure" + IO Word32 + + +busWatchNameOnConnection :: + (MonadIO m, DBusConnectionK a) => + a -- connection + -> T.Text -- name + -> [BusNameWatcherFlags] -- flags + -> Maybe (Closure) -- nameAppearedClosure + -> Maybe (Closure) -- nameVanishedClosure + -> m Word32 -- result +busWatchNameOnConnection connection name flags nameAppearedClosure nameVanishedClosure = liftIO $ do + let connection' = unsafeManagedPtrCastPtr connection + name' <- textToCString name + let flags' = gflagsToWord flags + maybeNameAppearedClosure <- case nameAppearedClosure of + Nothing -> return nullPtr + Just jNameAppearedClosure -> do + let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure + return jNameAppearedClosure' + maybeNameVanishedClosure <- case nameVanishedClosure of + Nothing -> return nullPtr + Just jNameVanishedClosure -> do + let jNameVanishedClosure' = unsafeManagedPtrGetPtr jNameVanishedClosure + return jNameVanishedClosure' + result <- g_bus_watch_name_on_connection_with_closures connection' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure + touchManagedPtr connection + whenJust nameAppearedClosure touchManagedPtr + whenJust nameVanishedClosure touchManagedPtr + freeMem name' + return result + + +-- function g_bus_watch_name_with_closures +-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_watch_name_with_closures" g_bus_watch_name_with_closures :: + CUInt -> -- bus_type : TInterface "Gio" "BusType" + CString -> -- name : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags" + Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure" + Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure" + IO Word32 + + +busWatchName :: + (MonadIO m) => + BusType -- busType + -> T.Text -- name + -> [BusNameWatcherFlags] -- flags + -> Maybe (Closure) -- nameAppearedClosure + -> Maybe (Closure) -- nameVanishedClosure + -> m Word32 -- result +busWatchName busType name flags nameAppearedClosure nameVanishedClosure = liftIO $ do + let busType' = (fromIntegral . fromEnum) busType + name' <- textToCString name + let flags' = gflagsToWord flags + maybeNameAppearedClosure <- case nameAppearedClosure of + Nothing -> return nullPtr + Just jNameAppearedClosure -> do + let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure + return jNameAppearedClosure' + maybeNameVanishedClosure <- case nameVanishedClosure of + Nothing -> return nullPtr + Just jNameVanishedClosure -> do + let jNameVanishedClosure' = unsafeManagedPtrGetPtr jNameVanishedClosure + return jNameVanishedClosure' + result <- g_bus_watch_name_with_closures busType' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure + whenJust nameAppearedClosure touchManagedPtr + whenJust nameVanishedClosure touchManagedPtr + freeMem name' + return result + + +-- function g_bus_unwatch_name +-- Args : [Arg {argCName = "watcher_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_unwatch_name" g_bus_unwatch_name :: + Word32 -> -- watcher_id : TBasicType TUInt32 + IO () + + +busUnwatchName :: + (MonadIO m) => + Word32 -- watcherId + -> m () -- result +busUnwatchName watcherId = liftIO $ do + g_bus_unwatch_name watcherId + return () + + +-- function g_bus_unown_name +-- Args : [Arg {argCName = "owner_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_unown_name" g_bus_unown_name :: + Word32 -> -- owner_id : TBasicType TUInt32 + IO () + + +busUnownName :: + (MonadIO m) => + Word32 -- ownerId + -> m () -- result +busUnownName ownerId = liftIO $ do + g_bus_unown_name ownerId + return () + + +-- function g_bus_own_name_on_connection_with_closures +-- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_own_name_on_connection_with_closures" g_bus_own_name_on_connection_with_closures :: + Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" + CString -> -- name : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags" + Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure" + Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure" + IO Word32 + + +busOwnNameOnConnection :: + (MonadIO m, DBusConnectionK a) => + a -- connection + -> T.Text -- name + -> [BusNameOwnerFlags] -- flags + -> Maybe (Closure) -- nameAcquiredClosure + -> Maybe (Closure) -- nameLostClosure + -> m Word32 -- result +busOwnNameOnConnection connection name flags nameAcquiredClosure nameLostClosure = liftIO $ do + let connection' = unsafeManagedPtrCastPtr connection + name' <- textToCString name + let flags' = gflagsToWord flags + maybeNameAcquiredClosure <- case nameAcquiredClosure of + Nothing -> return nullPtr + Just jNameAcquiredClosure -> do + let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure + return jNameAcquiredClosure' + maybeNameLostClosure <- case nameLostClosure of + Nothing -> return nullPtr + Just jNameLostClosure -> do + let jNameLostClosure' = unsafeManagedPtrGetPtr jNameLostClosure + return jNameLostClosure' + result <- g_bus_own_name_on_connection_with_closures connection' name' flags' maybeNameAcquiredClosure maybeNameLostClosure + touchManagedPtr connection + whenJust nameAcquiredClosure touchManagedPtr + whenJust nameLostClosure touchManagedPtr + freeMem name' + return result + + +-- function g_bus_own_name_with_closures +-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_own_name_with_closures" g_bus_own_name_with_closures :: + CUInt -> -- bus_type : TInterface "Gio" "BusType" + CString -> -- name : TBasicType TUTF8 + CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags" + Ptr Closure -> -- bus_acquired_closure : TInterface "GObject" "Closure" + Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure" + Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure" + IO Word32 + + +busOwnName :: + (MonadIO m) => + BusType -- busType + -> T.Text -- name + -> [BusNameOwnerFlags] -- flags + -> Maybe (Closure) -- busAcquiredClosure + -> Maybe (Closure) -- nameAcquiredClosure + -> Maybe (Closure) -- nameLostClosure + -> m Word32 -- result +busOwnName busType name flags busAcquiredClosure nameAcquiredClosure nameLostClosure = liftIO $ do + let busType' = (fromIntegral . fromEnum) busType + name' <- textToCString name + let flags' = gflagsToWord flags + maybeBusAcquiredClosure <- case busAcquiredClosure of + Nothing -> return nullPtr + Just jBusAcquiredClosure -> do + let jBusAcquiredClosure' = unsafeManagedPtrGetPtr jBusAcquiredClosure + return jBusAcquiredClosure' + maybeNameAcquiredClosure <- case nameAcquiredClosure of + Nothing -> return nullPtr + Just jNameAcquiredClosure -> do + let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure + return jNameAcquiredClosure' + maybeNameLostClosure <- case nameLostClosure of + Nothing -> return nullPtr + Just jNameLostClosure -> do + let jNameLostClosure' = unsafeManagedPtrGetPtr jNameLostClosure + return jNameLostClosure' + result <- g_bus_own_name_with_closures busType' name' flags' maybeBusAcquiredClosure maybeNameAcquiredClosure maybeNameLostClosure + whenJust busAcquiredClosure touchManagedPtr + whenJust nameAcquiredClosure touchManagedPtr + whenJust nameLostClosure touchManagedPtr + freeMem name' + return result + + +-- function g_bus_get_sync +-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "DBusConnection" +-- throws : True +-- Skip return : False + +foreign import ccall "g_bus_get_sync" g_bus_get_sync :: + CUInt -> -- bus_type : TInterface "Gio" "BusType" + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr DBusConnection) + + +busGetSync :: + (MonadIO m, CancellableK a) => + BusType -- busType + -> Maybe (a) -- cancellable + -> m DBusConnection -- result +busGetSync busType cancellable = liftIO $ do + let busType' = (fromIntegral . fromEnum) busType + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ g_bus_get_sync busType' maybeCancellable + checkUnexpectedReturnNULL "g_bus_get_sync" result + result' <- (wrapObject DBusConnection) result + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + + +-- function g_bus_get_finish +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TInterface "Gio" "DBusConnection" +-- throws : True +-- Skip return : False + +foreign import ccall "g_bus_get_finish" g_bus_get_finish :: + Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr DBusConnection) + + +busGetFinish :: + (MonadIO m, AsyncResultK a) => + a -- res + -> m DBusConnection -- result +busGetFinish res = liftIO $ do + let res' = unsafeManagedPtrCastPtr res + onException (do + result <- propagateGError $ g_bus_get_finish res' + checkUnexpectedReturnNULL "g_bus_get_finish" result + result' <- (wrapObject DBusConnection) result + touchManagedPtr res + return result' + ) (do + return () + ) + + +-- function g_bus_get +-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bus_get" g_bus_get :: + CUInt -> -- bus_type : TInterface "Gio" "BusType" + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +busGet :: + (MonadIO m, CancellableK a) => + BusType -- busType + -> Maybe (a) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result +busGet busType cancellable callback = liftIO $ do + let busType' = (fromIntegral . fromEnum) busType + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let userData = nullPtr + g_bus_get busType' maybeCancellable maybeCallback userData + whenJust cancellable touchManagedPtr + return () diff --git a/GI/Gio/Interfaces.hs b/GI/Gio/Interfaces.hs --- a/GI/Gio/Interfaces.hs +++ b/GI/Gio/Interfaces.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Interfaces/Action.hs b/GI/Gio/Interfaces/Action.hs --- a/GI/Gio/Interfaces/Action.hs +++ b/GI/Gio/Interfaces/Action.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,39 +18,59 @@ -- * 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 , @@ -98,6 +119,47 @@ 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] @@ -111,7 +173,7 @@ type AttrSetTypeConstraint ActionEnabledPropertyInfo = (~) () type AttrBaseTypeConstraint ActionEnabledPropertyInfo = ActionK type AttrGetType ActionEnabledPropertyInfo = Bool - type AttrLabel ActionEnabledPropertyInfo = "Action::enabled" + type AttrLabel ActionEnabledPropertyInfo = "enabled" attrGet _ = getActionEnabled attrSet _ = undefined attrConstruct _ = undefined @@ -129,7 +191,7 @@ type AttrSetTypeConstraint ActionNamePropertyInfo = (~) () type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK type AttrGetType ActionNamePropertyInfo = T.Text - type AttrLabel ActionNamePropertyInfo = "Action::name" + type AttrLabel ActionNamePropertyInfo = "name" attrGet _ = getActionName attrSet _ = undefined attrConstruct _ = undefined @@ -147,7 +209,7 @@ type AttrSetTypeConstraint ActionParameterTypePropertyInfo = (~) () type AttrBaseTypeConstraint ActionParameterTypePropertyInfo = ActionK type AttrGetType ActionParameterTypePropertyInfo = GLib.VariantType - type AttrLabel ActionParameterTypePropertyInfo = "Action::parameter-type" + type AttrLabel ActionParameterTypePropertyInfo = "parameter-type" attrGet _ = getActionParameterType attrSet _ = undefined attrConstruct _ = undefined @@ -165,7 +227,7 @@ type AttrSetTypeConstraint ActionStatePropertyInfo = (~) () type AttrBaseTypeConstraint ActionStatePropertyInfo = ActionK type AttrGetType ActionStatePropertyInfo = GVariant - type AttrLabel ActionStatePropertyInfo = "Action::state" + type AttrLabel ActionStatePropertyInfo = "state" attrGet _ = getActionState attrSet _ = undefined attrConstruct _ = undefined @@ -183,16 +245,16 @@ type AttrSetTypeConstraint ActionStateTypePropertyInfo = (~) () type AttrBaseTypeConstraint ActionStateTypePropertyInfo = ActionK type AttrGetType ActionStateTypePropertyInfo = GLib.VariantType - type AttrLabel ActionStateTypePropertyInfo = "Action::state-type" + type AttrLabel ActionStateTypePropertyInfo = "state-type" attrGet _ = getActionStateType attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("enabled", ActionEnabledPropertyInfo), '("name", ActionNamePropertyInfo), '("parameter-type", ActionParameterTypePropertyInfo), '("state", ActionStatePropertyInfo), '("state-type", ActionStateTypePropertyInfo)] :: [(Symbol, *)]) +type ActionAttributeList = ('[ '("enabled", ActionEnabledPropertyInfo), '("name", ActionNamePropertyInfo), '("parameterType", ActionParameterTypePropertyInfo), '("state", ActionStatePropertyInfo), '("stateType", ActionStateTypePropertyInfo)] :: [(Symbol, *)]) type instance SignalList Action = ActionSignalList -type ActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_action_get_type" c_g_action_get_type :: IO GType @@ -213,9 +275,8 @@ -- method Action::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,9 +289,9 @@ actionActivate :: (MonadIO m, ActionK a) => - a -> -- _obj - Maybe (GVariant) -> -- parameter - m () + a -- _obj + -> Maybe (GVariant) -- parameter + -> m () -- result actionActivate _obj parameter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeParameter <- case parameter of @@ -242,11 +303,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -259,9 +323,9 @@ actionChangeState :: (MonadIO m, ActionK a) => - a -> -- _obj - GVariant -> -- value - m () + a -- _obj + -> GVariant -- value + -> m () -- result actionChangeState _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = unsafeManagedPtrGetPtr value @@ -269,11 +333,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -285,8 +352,8 @@ actionGetEnabled :: (MonadIO m, ActionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result actionGetEnabled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_get_enabled _obj' @@ -294,11 +361,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -310,8 +380,8 @@ actionGetName :: (MonadIO m, ActionK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result actionGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_get_name _obj' @@ -320,11 +390,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantType" -- throws : False -- Skip return : False @@ -336,8 +409,8 @@ actionGetParameterType :: (MonadIO m, ActionK a) => - a -> -- _obj - m GLib.VariantType + a -- _obj + -> m GLib.VariantType -- result actionGetParameterType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_get_parameter_type _obj' @@ -346,11 +419,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -362,8 +438,8 @@ actionGetState :: (MonadIO m, ActionK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result actionGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_get_state _obj' @@ -372,11 +448,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -388,8 +467,8 @@ actionGetStateHint :: (MonadIO m, ActionK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result actionGetStateHint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_get_state_hint _obj' @@ -398,11 +477,14 @@ touchManagedPtr _obj return result' +data ActionGetStateHintMethodInfo +instance (signature ~ (m GVariant), MonadIO m, ActionK a) => MethodInfo ActionGetStateHintMethodInfo a signature where + overloadedMethod _ = actionGetStateHint + -- method Action::get_state_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantType" -- throws : False -- Skip return : False @@ -414,14 +496,116 @@ actionGetStateType :: (MonadIO m, ActionK a) => - a -> -- _obj - m GLib.VariantType + 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 : 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 : 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 : 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 --- a/GI/Gio/Interfaces/Action.hs-boot +++ b/GI/Gio/Interfaces/Action.hs-boot @@ -16,3 +16,11 @@ 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 --- a/GI/Gio/Interfaces/ActionGroup.hs +++ b/GI/Gio/Interfaces/ActionGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,58 +18,72 @@ -- * 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 , @@ -145,6 +160,53 @@ 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 -> @@ -172,9 +234,9 @@ CString -> Ptr () -> IO () -actionGroupActionAddedCallbackWrapper _cb _ action_name _ = do - action_name' <- cstringToText action_name - _cb action_name' +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 @@ -217,10 +279,10 @@ CInt -> Ptr () -> IO () -actionGroupActionEnabledChangedCallbackWrapper _cb _ action_name enabled _ = do - action_name' <- cstringToText action_name +actionGroupActionEnabledChangedCallbackWrapper _cb _ actionName enabled _ = do + actionName' <- cstringToText actionName let enabled' = (/= 0) enabled - _cb action_name' enabled' + _cb actionName' enabled' onActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId onActionGroupActionEnabledChanged obj cb = liftIO $ connectActionGroupActionEnabledChanged obj cb SignalConnectBefore @@ -260,9 +322,9 @@ CString -> Ptr () -> IO () -actionGroupActionRemovedCallbackWrapper _cb _ action_name _ = do - action_name' <- cstringToText action_name - _cb action_name' +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 @@ -305,10 +367,10 @@ Ptr GVariant -> Ptr () -> IO () -actionGroupActionStateChangedCallbackWrapper _cb _ action_name value _ = do - action_name' <- cstringToText action_name +actionGroupActionStateChangedCallbackWrapper _cb _ actionName value _ = do + actionName' <- cstringToText actionName value' <- newGVariantFromPtr value - _cb action_name' value' + _cb actionName' value' onActionGroupActionStateChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId onActionGroupActionStateChanged obj cb = liftIO $ connectActionGroupActionStateChanged obj cb SignalConnectBefore @@ -345,7 +407,7 @@ connectSignal _ = connectActionGroupActionStateChanged type instance SignalList ActionGroup = ActionGroupSignalList -type ActionGroupSignalList = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -366,9 +428,8 @@ -- method ActionGroup::action_added -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -381,22 +442,25 @@ actionGroupActionAdded :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m () -actionGroupActionAdded _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m () -- result +actionGroupActionAdded _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - g_action_group_action_added _obj' action_name' + actionName' <- textToCString actionName + g_action_group_action_added _obj' actionName' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -410,24 +474,27 @@ actionGroupActionEnabledChanged :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - Bool -> -- enabled - m () -actionGroupActionEnabledChanged _obj action_name enabled = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> Bool -- enabled + -> m () -- result +actionGroupActionEnabledChanged _obj actionName enabled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName let enabled' = (fromIntegral . fromEnum) enabled - g_action_group_action_enabled_changed _obj' action_name' enabled' + g_action_group_action_enabled_changed _obj' actionName' enabled' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -440,22 +507,25 @@ actionGroupActionRemoved :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m () -actionGroupActionRemoved _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m () -- result +actionGroupActionRemoved _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - g_action_group_action_removed _obj' action_name' + actionName' <- textToCString actionName + g_action_group_action_removed _obj' actionName' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -469,24 +539,27 @@ actionGroupActionStateChanged :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - GVariant -> -- state - m () -actionGroupActionStateChanged _obj action_name state = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> GVariant -- state + -> m () -- result +actionGroupActionStateChanged _obj actionName state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName let state' = unsafeManagedPtrGetPtr state - g_action_group_action_state_changed _obj' action_name' state' + g_action_group_action_state_changed _obj' actionName' state' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -500,28 +573,31 @@ actionGroupActivateAction :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - Maybe (GVariant) -> -- parameter - m () -actionGroupActivateAction _obj action_name parameter = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> Maybe (GVariant) -- parameter + -> m () -- result +actionGroupActivateAction _obj actionName parameter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + 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' action_name' maybeParameter + g_action_group_activate_action _obj' actionName' maybeParameter touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -535,24 +611,27 @@ actionGroupChangeActionState :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - GVariant -> -- value - m () -actionGroupChangeActionState _obj action_name value = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> GVariant -- value + -> m () -- result +actionGroupChangeActionState _obj actionName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName let value' = unsafeManagedPtrGetPtr value - g_action_group_change_action_state _obj' action_name' value' + g_action_group_change_action_state _obj' actionName' value' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -565,23 +644,26 @@ actionGroupGetActionEnabled :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m Bool -actionGroupGetActionEnabled _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m Bool -- result +actionGroupGetActionEnabled _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_get_action_enabled _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_get_action_enabled _obj' actionName' let result' = (/= 0) result touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantType" -- throws : False -- Skip return : False @@ -594,24 +676,27 @@ actionGroupGetActionParameterType :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m GLib.VariantType -actionGroupGetActionParameterType _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m GLib.VariantType -- result +actionGroupGetActionParameterType _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_get_action_parameter_type _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_get_action_parameter_type _obj' actionName' checkUnexpectedReturnNULL "g_action_group_get_action_parameter_type" result result' <- (newBoxed GLib.VariantType) result touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return result' +data ActionGroupGetActionParameterTypeMethodInfo +instance (signature ~ (T.Text -> m GLib.VariantType), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionParameterTypeMethodInfo a signature where + overloadedMethod _ = actionGroupGetActionParameterType + -- method ActionGroup::get_action_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -624,24 +709,27 @@ actionGroupGetActionState :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m GVariant -actionGroupGetActionState _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m GVariant -- result +actionGroupGetActionState _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_get_action_state _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_get_action_state _obj' actionName' checkUnexpectedReturnNULL "g_action_group_get_action_state" result result' <- wrapGVariantPtr result touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return result' +data ActionGroupGetActionStateMethodInfo +instance (signature ~ (T.Text -> m GVariant), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateMethodInfo a signature where + overloadedMethod _ = actionGroupGetActionState + -- method ActionGroup::get_action_state_hint -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -654,24 +742,27 @@ actionGroupGetActionStateHint :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m GVariant -actionGroupGetActionStateHint _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m GVariant -- result +actionGroupGetActionStateHint _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_get_action_state_hint _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_get_action_state_hint _obj' actionName' checkUnexpectedReturnNULL "g_action_group_get_action_state_hint" result result' <- wrapGVariantPtr result touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return result' +data ActionGroupGetActionStateHintMethodInfo +instance (signature ~ (T.Text -> m GVariant), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateHintMethodInfo a signature where + overloadedMethod _ = actionGroupGetActionStateHint + -- method ActionGroup::get_action_state_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantType" -- throws : False -- Skip return : False @@ -684,24 +775,27 @@ actionGroupGetActionStateType :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m GLib.VariantType -actionGroupGetActionStateType _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m GLib.VariantType -- result +actionGroupGetActionStateType _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_get_action_state_type _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_get_action_state_type _obj' actionName' checkUnexpectedReturnNULL "g_action_group_get_action_state_type" result result' <- (newBoxed GLib.VariantType) result touchManagedPtr _obj - freeMem action_name' + freeMem actionName' return result' +data ActionGroupGetActionStateTypeMethodInfo +instance (signature ~ (T.Text -> m GLib.VariantType), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateTypeMethodInfo a signature where + overloadedMethod _ = actionGroupGetActionStateType + -- method ActionGroup::has_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -714,23 +808,26 @@ actionGroupHasAction :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m Bool -actionGroupHasAction _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m Bool -- result +actionGroupHasAction _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_group_has_action _obj' action_name' + actionName' <- textToCString actionName + result <- g_action_group_has_action _obj' actionName' let result' = (/= 0) result touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -742,8 +839,8 @@ actionGroupListActions :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result actionGroupListActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_action_group_list_actions _obj' @@ -754,11 +851,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "state_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "state_hint", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "state", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -776,36 +876,40 @@ actionGroupQueryAction :: (MonadIO m, ActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant) -actionGroupQueryAction _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant)-- result +actionGroupQueryAction _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName enabled <- allocMem :: IO (Ptr CInt) - parameter_type <- allocMem :: IO (Ptr (Ptr GLib.VariantType)) - state_type <- allocMem :: IO (Ptr (Ptr GLib.VariantType)) - state_hint <- allocMem :: IO (Ptr (Ptr GVariant)) + 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' action_name' enabled parameter_type state_type state_hint state + result <- g_action_group_query_action _obj' actionName' enabled parameterType stateType stateHint state let result' = (/= 0) result enabled' <- peek enabled let enabled'' = (/= 0) enabled' - parameter_type' <- peek parameter_type - parameter_type'' <- (wrapBoxed GLib.VariantType) parameter_type' - state_type' <- peek state_type - state_type'' <- (wrapBoxed GLib.VariantType) state_type' - state_hint' <- peek state_hint - state_hint'' <- wrapGVariantPtr state_hint' + 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 action_name' + freeMem actionName' freeMem enabled - freeMem parameter_type - freeMem state_type - freeMem state_hint + freeMem parameterType + freeMem stateType + freeMem stateHint freeMem state - return (result', enabled'', parameter_type'', state_type'', state_hint'', 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 --- a/GI/Gio/Interfaces/ActionGroup.hs-boot +++ b/GI/Gio/Interfaces/ActionGroup.hs-boot @@ -15,3 +15,17 @@ 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 --- a/GI/Gio/Interfaces/ActionMap.hs +++ b/GI/Gio/Interfaces/ActionMap.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** actionMapAddAction + ActionMapAddActionMethodInfo , actionMapAddAction , -- ** actionMapAddActionEntries + ActionMapAddActionEntriesMethodInfo , actionMapAddActionEntries , -- ** actionMapLookupAction + ActionMapLookupActionMethodInfo , actionMapLookupAction , -- ** actionMapRemoveAction + ActionMapRemoveActionMethodInfo , actionMapRemoveAction , @@ -53,11 +58,48 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ActionMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_action_map_get_type" c_g_action_map_get_type :: IO GType @@ -78,9 +120,8 @@ -- method ActionMap::add_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -93,9 +134,9 @@ actionMapAddAction :: (MonadIO m, ActionMapK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result actionMapAddAction _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -104,11 +145,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -123,26 +167,29 @@ actionMapAddActionEntries :: (MonadIO m, ActionMapK a) => - a -> -- _obj - [ActionEntry] -> -- entries - Ptr () -> -- user_data - m () -actionMapAddActionEntries _obj entries user_data = liftIO $ do - let n_entries = fromIntegral $ length entries + 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'' n_entries user_data + 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 {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Action" -- throws : False -- Skip return : False @@ -155,24 +202,27 @@ actionMapLookupAction :: (MonadIO m, ActionMapK a) => - a -> -- _obj - T.Text -> -- action_name - m Action -actionMapLookupAction _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m Action -- result +actionMapLookupAction _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_action_map_lookup_action _obj' action_name' + 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 action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -185,15 +235,19 @@ actionMapRemoveAction :: (MonadIO m, ActionMapK a) => - a -> -- _obj - T.Text -> -- action_name - m () -actionMapRemoveAction _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m () -- result +actionMapRemoveAction _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - g_action_map_remove_action _obj' action_name' + actionName' <- textToCString actionName + g_action_map_remove_action _obj' actionName' touchManagedPtr _obj - freeMem action_name' + 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 --- a/GI/Gio/Interfaces/ActionMap.hs-boot +++ b/GI/Gio/Interfaces/ActionMap.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/AppInfo.hs +++ b/GI/Gio/Interfaces/AppInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,94 +18,153 @@ -- * 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 , @@ -129,11 +189,67 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_app_info_get_type" c_g_app_info_get_type :: IO GType @@ -154,9 +270,8 @@ -- method AppInfo::add_supports_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -170,26 +285,29 @@ appInfoAddSupportsType :: (MonadIO m, AppInfoK a) => - a -> -- _obj - T.Text -> -- content_type - m () -appInfoAddSupportsType _obj content_type = liftIO $ do + a -- _obj + -> T.Text -- contentType + -> m () -- result +appInfoAddSupportsType _obj contentType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type + contentType' <- textToCString contentType onException (do - _ <- propagateGError $ g_app_info_add_supports_type _obj' content_type' + _ <- propagateGError $ g_app_info_add_supports_type _obj' contentType' touchManagedPtr _obj - freeMem content_type' + freeMem contentType' return () ) (do - freeMem content_type' + 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -201,8 +319,8 @@ appInfoCanDelete :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appInfoCanDelete _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_can_delete _obj' @@ -210,11 +328,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -226,8 +347,8 @@ appInfoCanRemoveSupportsType :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appInfoCanRemoveSupportsType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_can_remove_supports_type _obj' @@ -235,11 +356,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -251,8 +375,8 @@ appInfoDelete :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appInfoDelete _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_delete _obj' @@ -260,11 +384,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "AppInfo" -- throws : False -- Skip return : False @@ -276,8 +403,8 @@ appInfoDup :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m AppInfo + a -- _obj + -> m AppInfo -- result appInfoDup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_dup _obj' @@ -286,11 +413,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "appinfo2", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "appinfo2", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -303,9 +433,9 @@ appInfoEqual :: (MonadIO m, AppInfoK a, AppInfoK b) => - a -> -- _obj - b -> -- appinfo2 - m Bool + a -- _obj + -> b -- appinfo2 + -> m Bool -- result appInfoEqual _obj appinfo2 = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let appinfo2' = unsafeManagedPtrCastPtr appinfo2 @@ -315,11 +445,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -331,8 +464,8 @@ appInfoGetCommandline :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetCommandline _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_commandline _obj' @@ -341,11 +474,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -357,8 +493,8 @@ appInfoGetDescription :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_description _obj' @@ -367,11 +503,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -383,8 +522,8 @@ appInfoGetDisplayName :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_display_name _obj' @@ -393,11 +532,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -409,8 +551,8 @@ appInfoGetExecutable :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetExecutable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_executable _obj' @@ -419,11 +561,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -435,8 +580,8 @@ appInfoGetIcon :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result appInfoGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_icon _obj' @@ -445,11 +590,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -461,8 +609,8 @@ appInfoGetId :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_id _obj' @@ -471,11 +619,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -487,8 +638,8 @@ appInfoGetName :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result appInfoGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_name _obj' @@ -497,11 +648,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -513,8 +667,8 @@ appInfoGetSupportedTypes :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result appInfoGetSupportedTypes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_get_supported_types _obj' @@ -523,11 +677,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -542,35 +699,38 @@ appInfoLaunch :: (MonadIO m, AppInfoK a, FileK b, AppLaunchContextK c) => - a -> -- _obj - [b] -> -- files - Maybe (c) -> -- launch_context - m () -appInfoLaunch _obj files launch_context = liftIO $ do + 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' - maybeLaunch_context <- case launch_context of + maybeLaunchContext <- case launchContext of Nothing -> return nullPtr - Just jLaunch_context -> do - let jLaunch_context' = unsafeManagedPtrCastPtr jLaunch_context - return jLaunch_context' + Just jLaunchContext -> do + let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext + return jLaunchContext' onException (do - _ <- propagateGError $ g_app_info_launch _obj' files'' maybeLaunch_context + _ <- propagateGError $ g_app_info_launch _obj' files'' maybeLaunchContext touchManagedPtr _obj mapM_ touchManagedPtr files - whenJust launch_context touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -585,23 +745,23 @@ appInfoLaunchUris :: (MonadIO m, AppInfoK a, AppLaunchContextK b) => - a -> -- _obj - [T.Text] -> -- uris - Maybe (b) -> -- launch_context - m () -appInfoLaunchUris _obj uris launch_context = liftIO $ do + 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' - maybeLaunch_context <- case launch_context of + maybeLaunchContext <- case launchContext of Nothing -> return nullPtr - Just jLaunch_context -> do - let jLaunch_context' = unsafeManagedPtrCastPtr jLaunch_context - return jLaunch_context' + Just jLaunchContext -> do + let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext + return jLaunchContext' onException (do - _ <- propagateGError $ g_app_info_launch_uris _obj' uris'' maybeLaunch_context + _ <- propagateGError $ g_app_info_launch_uris _obj' uris'' maybeLaunchContext touchManagedPtr _obj - whenJust launch_context touchManagedPtr + whenJust launchContext touchManagedPtr mapGList freeMem uris'' g_list_free uris'' return () @@ -610,11 +770,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -628,26 +791,29 @@ appInfoRemoveSupportsType :: (MonadIO m, AppInfoK a) => - a -> -- _obj - T.Text -> -- content_type - m () -appInfoRemoveSupportsType _obj content_type = liftIO $ do + a -- _obj + -> T.Text -- contentType + -> m () -- result +appInfoRemoveSupportsType _obj contentType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type + contentType' <- textToCString contentType onException (do - _ <- propagateGError $ g_app_info_remove_supports_type _obj' content_type' + _ <- propagateGError $ g_app_info_remove_supports_type _obj' contentType' touchManagedPtr _obj - freeMem content_type' + freeMem contentType' return () ) (do - freeMem content_type' + 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extension", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extension", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -661,9 +827,9 @@ appInfoSetAsDefaultForExtension :: (MonadIO m, AppInfoK a) => - a -> -- _obj - T.Text -> -- extension - m () + a -- _obj + -> T.Text -- extension + -> m () -- result appInfoSetAsDefaultForExtension _obj extension = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj extension' <- textToCString extension @@ -676,11 +842,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -694,26 +863,29 @@ appInfoSetAsDefaultForType :: (MonadIO m, AppInfoK a) => - a -> -- _obj - T.Text -> -- content_type - m () -appInfoSetAsDefaultForType _obj content_type = liftIO $ do + a -- _obj + -> T.Text -- contentType + -> m () -- result +appInfoSetAsDefaultForType _obj contentType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type + contentType' <- textToCString contentType onException (do - _ <- propagateGError $ g_app_info_set_as_default_for_type _obj' content_type' + _ <- propagateGError $ g_app_info_set_as_default_for_type _obj' contentType' touchManagedPtr _obj - freeMem content_type' + freeMem contentType' return () ) (do - freeMem content_type' + 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -727,26 +899,29 @@ appInfoSetAsLastUsedForType :: (MonadIO m, AppInfoK a) => - a -> -- _obj - T.Text -> -- content_type - m () -appInfoSetAsLastUsedForType _obj content_type = liftIO $ do + a -- _obj + -> T.Text -- contentType + -> m () -- result +appInfoSetAsLastUsedForType _obj contentType = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type + contentType' <- textToCString contentType onException (do - _ <- propagateGError $ g_app_info_set_as_last_used_for_type _obj' content_type' + _ <- propagateGError $ g_app_info_set_as_last_used_for_type _obj' contentType' touchManagedPtr _obj - freeMem content_type' + freeMem contentType' return () ) (do - freeMem content_type' + 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -758,8 +933,8 @@ appInfoShouldShow :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appInfoShouldShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_should_show _obj' @@ -767,11 +942,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -783,8 +961,8 @@ appInfoSupportsFiles :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result appInfoSupportsFiles _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_info_supports_files _obj' @@ -792,11 +970,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -808,13 +989,275 @@ appInfoSupportsUris :: (MonadIO m, AppInfoK a) => - a -> -- _obj - m Bool + 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 : 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 : 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 + checkUnexpectedReturnNULL "g_app_info_get_all" result + 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 : 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' + checkUnexpectedReturnNULL "g_app_info_get_all_for_type" result + 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 : 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 : 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 : 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' + checkUnexpectedReturnNULL "g_app_info_get_fallback_for_type" result + 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 : 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' + checkUnexpectedReturnNULL "g_app_info_get_recommended_for_type" result + 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 : 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 : TBasicType TVoid +-- 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 --- a/GI/Gio/Interfaces/AppInfo.hs-boot +++ b/GI/Gio/Interfaces/AppInfo.hs-boot @@ -11,3 +11,26 @@ 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 --- a/GI/Gio/Interfaces/AsyncInitable.hs +++ b/GI/Gio/Interfaces/AsyncInitable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,19 +18,26 @@ -- * Methods -- ** asyncInitableInitAsync + AsyncInitableInitAsyncMethodInfo , asyncInitableInitAsync , -- ** asyncInitableInitFinish + AsyncInitableInitFinishMethodInfo , asyncInitableInitFinish , -- ** asyncInitableNewFinish + AsyncInitableNewFinishMethodInfo , asyncInitableNewFinish , +-- ** asyncInitableNewvAsync + asyncInitableNewvAsync , + + ) where import Prelude () @@ -49,11 +57,47 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AsyncInitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_async_initable_get_type" c_g_async_initable_get_type :: IO GType @@ -74,9 +118,8 @@ -- method AsyncInitable::init_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -92,12 +135,12 @@ asyncInitableInitAsync :: (MonadIO m, AsyncInitableK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -asyncInitableInitAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -111,17 +154,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_async_initable_init_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -135,9 +181,9 @@ asyncInitableInitFinish :: (MonadIO m, AsyncInitableK a, AsyncResultK b) => - a -> -- _obj - b -> -- res - m () + a -- _obj + -> b -- res + -> m () -- result asyncInitableInitFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res @@ -150,11 +196,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : True -- Skip return : False @@ -168,9 +217,9 @@ asyncInitableNewFinish :: (MonadIO m, AsyncInitableK a, AsyncResultK b) => - a -> -- _obj - b -> -- res - m GObject.Object + a -- _obj + -> b -- res + -> m GObject.Object -- result asyncInitableNewFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res @@ -184,5 +233,58 @@ ) (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 TUInt32, 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_initable_newv_async" g_async_initable_newv_async :: + CGType -> -- object_type : TBasicType TGType + Word32 -> -- n_parameters : TBasicType TUInt32 + Ptr GObject.Parameter -> -- parameters : TInterface "GObject" "Parameter" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 --- a/GI/Gio/Interfaces/AsyncInitable.hs-boot +++ b/GI/Gio/Interfaces/AsyncInitable.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Interfaces/AsyncResult.hs +++ b/GI/Gio/Interfaces/AsyncResult.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** asyncResultGetSourceObject + AsyncResultGetSourceObjectMethodInfo , asyncResultGetSourceObject , -- ** asyncResultGetUserData + AsyncResultGetUserDataMethodInfo , asyncResultGetUserData , -- ** asyncResultIsTagged + AsyncResultIsTaggedMethodInfo , asyncResultIsTagged , -- ** asyncResultLegacyPropagateError + AsyncResultLegacyPropagateErrorMethodInfo, asyncResultLegacyPropagateError , @@ -53,11 +58,48 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_async_result_get_type" c_g_async_result_get_type :: IO GType @@ -78,9 +120,8 @@ -- method AsyncResult::get_source_object -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -92,8 +133,8 @@ asyncResultGetSourceObject :: (MonadIO m, AsyncResultK a) => - a -> -- _obj - m GObject.Object + a -- _obj + -> m GObject.Object -- result asyncResultGetSourceObject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_async_result_get_source_object _obj' @@ -102,11 +143,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -118,19 +162,22 @@ asyncResultGetUserData :: (MonadIO m, AsyncResultK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result asyncResultGetUserData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_async_result_get_user_data _obj' touchManagedPtr _obj return () +data AsyncResultGetUserDataMethodInfo +instance (signature ~ (m ()), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultGetUserDataMethodInfo a signature where + overloadedMethod _ = asyncResultGetUserData + -- method AsyncResult::is_tagged -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -143,21 +190,24 @@ asyncResultIsTagged :: (MonadIO m, AsyncResultK a) => - a -> -- _obj - Ptr () -> -- source_tag - m Bool -asyncResultIsTagged _obj source_tag = liftIO $ do + a -- _obj + -> Ptr () -- sourceTag + -> m Bool -- result +asyncResultIsTagged _obj sourceTag = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_async_result_is_tagged _obj' source_tag + 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 {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -170,8 +220,8 @@ asyncResultLegacyPropagateError :: (MonadIO m, AsyncResultK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result asyncResultLegacyPropagateError _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -181,5 +231,9 @@ ) (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 --- a/GI/Gio/Interfaces/AsyncResult.hs-boot +++ b/GI/Gio/Interfaces/AsyncResult.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/Converter.hs +++ b/GI/Gio/Interfaces/Converter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** converterConvert + ConverterConvertMethodInfo , converterConvert , -- ** converterReset + ConverterResetMethodInfo , converterReset , @@ -45,11 +48,46 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_converter_get_type" c_g_converter_get_type :: IO GType @@ -70,9 +108,8 @@ -- method Converter::convert -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ConverterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ConverterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : TInterface "Gio" "ConverterResult" -- throws : True -- Skip return : False @@ -92,40 +129,43 @@ converterConvert :: (MonadIO m, ConverterK a) => - a -> -- _obj - ByteString -> -- inbuf - Ptr () -> -- outbuf - Word64 -> -- outbuf_size - [ConverterFlags] -> -- flags - m (ConverterResult,Word64,Word64) -converterConvert _obj inbuf outbuf outbuf_size flags = liftIO $ do - let inbuf_size = fromIntegral $ B.length inbuf + 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 - bytes_read <- allocMem :: IO (Ptr Word64) - bytes_written <- allocMem :: IO (Ptr Word64) + bytesRead <- allocMem :: IO (Ptr Word64) + bytesWritten <- allocMem :: IO (Ptr Word64) onException (do - result <- propagateGError $ g_converter_convert _obj' inbuf' inbuf_size outbuf outbuf_size flags' bytes_read bytes_written + result <- propagateGError $ g_converter_convert _obj' inbuf' inbufSize outbuf outbufSize flags' bytesRead bytesWritten let result' = (toEnum . fromIntegral) result - bytes_read' <- peek bytes_read - bytes_written' <- peek bytes_written + bytesRead' <- peek bytesRead + bytesWritten' <- peek bytesWritten touchManagedPtr _obj freeMem inbuf' - freeMem bytes_read - freeMem bytes_written - return (result', bytes_read', bytes_written') + freeMem bytesRead + freeMem bytesWritten + return (result', bytesRead', bytesWritten') ) (do freeMem inbuf' - freeMem bytes_read - freeMem bytes_written + 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 {argName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -137,12 +177,16 @@ converterReset :: (MonadIO m, ConverterK a) => - a -> -- _obj - m () + 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 --- a/GI/Gio/Interfaces/Converter.hs-boot +++ b/GI/Gio/Interfaces/Converter.hs-boot @@ -11,3 +11,5 @@ 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 --- a/GI/Gio/Interfaces/DBusInterface.hs +++ b/GI/Gio/Interfaces/DBusInterface.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** dBusInterfaceGetInfo + DBusInterfaceGetInfoMethodInfo , dBusInterfaceGetInfo , -- ** dBusInterfaceGetObject + DBusInterfaceGetObjectMethodInfo , dBusInterfaceGetObject , -- ** dBusInterfaceSetObject + DBusInterfaceSetObjectMethodInfo , dBusInterfaceSetObject , @@ -49,11 +53,47 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusInterfaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_dbus_interface_get_type" c_g_dbus_interface_get_type :: IO GType @@ -74,9 +114,8 @@ -- method DBusInterface::get_object -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObject" -- throws : False -- Skip return : False @@ -88,8 +127,8 @@ dBusInterfaceGetObject :: (MonadIO m, DBusInterfaceK a) => - a -> -- _obj - m DBusObject + a -- _obj + -> m DBusObject -- result dBusInterfaceGetObject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_dup_object _obj' @@ -98,11 +137,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceInfo" -- throws : False -- Skip return : False @@ -114,8 +156,8 @@ dBusInterfaceGetInfo :: (MonadIO m, DBusInterfaceK a) => - a -> -- _obj - m DBusInterfaceInfo + a -- _obj + -> m DBusInterfaceInfo -- result dBusInterfaceGetInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_get_info _obj' @@ -124,11 +166,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -141,9 +186,9 @@ dBusInterfaceSetObject :: (MonadIO m, DBusInterfaceK a, DBusObjectK b) => - a -> -- _obj - Maybe (b) -> -- object - m () + a -- _obj + -> Maybe (b) -- object + -> m () -- result dBusInterfaceSetObject _obj object = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeObject <- case object of @@ -155,5 +200,9 @@ 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 --- a/GI/Gio/Interfaces/DBusInterface.hs-boot +++ b/GI/Gio/Interfaces/DBusInterface.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Interfaces/DBusObject.hs +++ b/GI/Gio/Interfaces/DBusObject.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** dBusObjectGetInterface + DBusObjectGetInterfaceMethodInfo , dBusObjectGetInterface , -- ** dBusObjectGetInterfaces + DBusObjectGetInterfacesMethodInfo , dBusObjectGetInterfaces , -- ** dBusObjectGetObjectPath + DBusObjectGetObjectPathMethodInfo , dBusObjectGetObjectPath , @@ -76,6 +80,42 @@ 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 -> @@ -174,7 +214,7 @@ connectSignal _ = connectDBusObjectInterfaceRemoved type instance SignalList DBusObject = DBusObjectSignalList -type DBusObjectSignalList = ('[ '("interface-added", DBusObjectInterfaceAddedSignalInfo), '("interface-removed", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -195,9 +235,8 @@ -- method DBusObject::get_interface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterface" -- throws : False -- Skip return : False @@ -210,24 +249,27 @@ dBusObjectGetInterface :: (MonadIO m, DBusObjectK a) => - a -> -- _obj - T.Text -> -- interface_name - m DBusInterface -dBusObjectGetInterface _obj interface_name = liftIO $ do + a -- _obj + -> T.Text -- interfaceName + -> m DBusInterface -- result +dBusObjectGetInterface _obj interfaceName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - interface_name' <- textToCString interface_name - result <- g_dbus_object_get_interface _obj' interface_name' + 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 interface_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "DBusInterface") -- throws : False -- Skip return : False @@ -239,8 +281,8 @@ dBusObjectGetInterfaces :: (MonadIO m, DBusObjectK a) => - a -> -- _obj - m [DBusInterface] + a -- _obj + -> m [DBusInterface] -- result dBusObjectGetInterfaces _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_get_interfaces _obj' @@ -251,11 +293,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -267,8 +312,8 @@ dBusObjectGetObjectPath :: (MonadIO m, DBusObjectK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusObjectGetObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_get_object_path _obj' @@ -276,5 +321,9 @@ 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 --- a/GI/Gio/Interfaces/DBusObject.hs-boot +++ b/GI/Gio/Interfaces/DBusObject.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Interfaces/DBusObjectManager.hs +++ b/GI/Gio/Interfaces/DBusObjectManager.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** dBusObjectManagerGetInterface + DBusObjectManagerGetInterfaceMethodInfo , dBusObjectManagerGetInterface , -- ** dBusObjectManagerGetObject + DBusObjectManagerGetObjectMethodInfo , dBusObjectManagerGetObject , -- ** dBusObjectManagerGetObjectPath + DBusObjectManagerGetObjectPathMethodInfo, dBusObjectManagerGetObjectPath , -- ** dBusObjectManagerGetObjects + DBusObjectManagerGetObjectsMethodInfo , dBusObjectManagerGetObjects , @@ -104,6 +109,43 @@ 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 -> @@ -304,7 +346,7 @@ connectSignal _ = connectDBusObjectManagerObjectRemoved type instance SignalList DBusObjectManager = DBusObjectManagerSignalList -type DBusObjectManagerSignalList = ('[ '("interface-added", DBusObjectManagerInterfaceAddedSignalInfo), '("interface-removed", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("object-added", DBusObjectManagerObjectAddedSignalInfo), '("object-removed", DBusObjectManagerObjectRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -325,9 +367,8 @@ -- method DBusObjectManager::get_interface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterface" -- throws : False -- Skip return : False @@ -341,27 +382,30 @@ dBusObjectManagerGetInterface :: (MonadIO m, DBusObjectManagerK a) => - a -> -- _obj - T.Text -> -- object_path - T.Text -> -- interface_name - m DBusInterface -dBusObjectManagerGetInterface _obj object_path interface_name = liftIO $ do + a -- _obj + -> T.Text -- objectPath + -> T.Text -- interfaceName + -> m DBusInterface -- result +dBusObjectManagerGetInterface _obj objectPath interfaceName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - result <- g_dbus_object_manager_get_interface _obj' object_path' interface_name' + 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 object_path' - freeMem interface_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObject" -- throws : False -- Skip return : False @@ -374,24 +418,27 @@ dBusObjectManagerGetObject :: (MonadIO m, DBusObjectManagerK a) => - a -> -- _obj - T.Text -> -- object_path - m DBusObject -dBusObjectManagerGetObject _obj object_path = liftIO $ do + a -- _obj + -> T.Text -- objectPath + -> m DBusObject -- result +dBusObjectManagerGetObject _obj objectPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - result <- g_dbus_object_manager_get_object _obj' object_path' + 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 object_path' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -403,8 +450,8 @@ dBusObjectManagerGetObjectPath :: (MonadIO m, DBusObjectManagerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusObjectManagerGetObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_get_object_path _obj' @@ -413,11 +460,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "DBusObject") -- throws : False -- Skip return : False @@ -429,8 +479,8 @@ dBusObjectManagerGetObjects :: (MonadIO m, DBusObjectManagerK a) => - a -> -- _obj - m [DBusObject] + a -- _obj + -> m [DBusObject] -- result dBusObjectManagerGetObjects _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_get_objects _obj' @@ -440,5 +490,9 @@ 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 --- a/GI/Gio/Interfaces/DBusObjectManager.hs-boot +++ b/GI/Gio/Interfaces/DBusObjectManager.hs-boot @@ -15,3 +15,7 @@ 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 --- a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs +++ b/GI/Gio/Interfaces/DesktopAppInfoLookup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** desktopAppInfoLookupGetDefaultForUriScheme + DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo, desktopAppInfoLookupGetDefaultForUriScheme, @@ -41,11 +43,45 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -66,9 +102,8 @@ -- method DesktopAppInfoLookup::get_default_for_uri_scheme -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfoLookup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfoLookup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "AppInfo" -- throws : False -- Skip return : False @@ -81,17 +116,21 @@ {-# DEPRECATED desktopAppInfoLookupGetDefaultForUriScheme ["The #GDesktopAppInfoLookup interface is deprecated and unused by gio."]#-} desktopAppInfoLookupGetDefaultForUriScheme :: (MonadIO m, DesktopAppInfoLookupK a) => - a -> -- _obj - T.Text -> -- uri_scheme - m AppInfo -desktopAppInfoLookupGetDefaultForUriScheme _obj uri_scheme = liftIO $ do + a -- _obj + -> T.Text -- uriScheme + -> m AppInfo -- result +desktopAppInfoLookupGetDefaultForUriScheme _obj uriScheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - uri_scheme' <- textToCString uri_scheme - result <- g_desktop_app_info_lookup_get_default_for_uri_scheme _obj' uri_scheme' + 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 uri_scheme' + 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 --- a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot +++ b/GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot @@ -11,3 +11,4 @@ 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 --- a/GI/Gio/Interfaces/Drive.hs +++ b/GI/Gio/Interfaces/Drive.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,110 +18,137 @@ -- * 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 , @@ -196,6 +224,66 @@ 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 () @@ -372,7 +460,7 @@ connectSignal _ = connectDriveStopButton type instance SignalList Drive = DriveSignalList -type DriveSignalList = ('[ '("changed", DriveChangedSignalInfo), '("disconnected", DriveDisconnectedSignalInfo), '("eject-button", DriveEjectButtonSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("stop-button", DriveStopButtonSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -393,9 +481,8 @@ -- method Drive::can_eject -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -407,8 +494,8 @@ driveCanEject :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveCanEject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_can_eject _obj' @@ -416,11 +503,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -432,8 +522,8 @@ driveCanPollForMedia :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveCanPollForMedia _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_can_poll_for_media _obj' @@ -441,11 +531,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -457,8 +550,8 @@ driveCanStart :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveCanStart _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_can_start _obj' @@ -466,11 +559,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -482,8 +578,8 @@ driveCanStartDegraded :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveCanStartDegraded _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_can_start_degraded _obj' @@ -491,11 +587,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -507,8 +606,8 @@ driveCanStop :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveCanStop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_can_stop _obj' @@ -516,11 +615,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -536,11 +638,11 @@ {-# 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 () + 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 @@ -556,17 +658,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_drive_eject _obj' flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -580,9 +685,9 @@ {-# 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 () + a -- _obj + -> b -- result_ + -> m () -- result driveEjectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -595,11 +700,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -616,20 +724,20 @@ driveEjectWithOperation :: (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -driveEjectWithOperation _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -642,18 +750,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_drive_eject_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_drive_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -667,9 +778,9 @@ driveEjectWithOperationFinish :: (MonadIO m, DriveK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result driveEjectWithOperationFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -682,11 +793,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -698,8 +812,8 @@ driveEnumerateIdentifiers :: (MonadIO m, DriveK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result driveEnumerateIdentifiers _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_enumerate_identifiers _obj' @@ -710,11 +824,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -726,8 +843,8 @@ driveGetIcon :: (MonadIO m, DriveK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result driveGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_icon _obj' @@ -736,11 +853,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -753,9 +873,9 @@ driveGetIdentifier :: (MonadIO m, DriveK a) => - a -> -- _obj - T.Text -> -- kind - m T.Text + a -- _obj + -> T.Text -- kind + -> m T.Text -- result driveGetIdentifier _obj kind = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj kind' <- textToCString kind @@ -767,11 +887,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -783,8 +906,8 @@ driveGetName :: (MonadIO m, DriveK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result driveGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_name _obj' @@ -794,11 +917,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -810,8 +936,8 @@ driveGetSortKey :: (MonadIO m, DriveK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result driveGetSortKey _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_sort_key _obj' @@ -820,11 +946,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DriveStartStopType" -- throws : False -- Skip return : False @@ -836,8 +965,8 @@ driveGetStartStopType :: (MonadIO m, DriveK a) => - a -> -- _obj - m DriveStartStopType + a -- _obj + -> m DriveStartStopType -- result driveGetStartStopType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_start_stop_type _obj' @@ -845,11 +974,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -861,8 +993,8 @@ driveGetSymbolicIcon :: (MonadIO m, DriveK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result driveGetSymbolicIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_symbolic_icon _obj' @@ -871,11 +1003,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "Volume") -- throws : False -- Skip return : False @@ -887,8 +1022,8 @@ driveGetVolumes :: (MonadIO m, DriveK a) => - a -> -- _obj - m [Volume] + a -- _obj + -> m [Volume] -- result driveGetVolumes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_get_volumes _obj' @@ -899,11 +1034,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -915,8 +1053,8 @@ driveHasMedia :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveHasMedia _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_has_media _obj' @@ -924,11 +1062,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -940,8 +1081,8 @@ driveHasVolumes :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveHasVolumes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_has_volumes _obj' @@ -949,11 +1090,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -965,8 +1109,8 @@ driveIsMediaCheckAutomatic :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveIsMediaCheckAutomatic _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_is_media_check_automatic _obj' @@ -974,11 +1118,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -990,8 +1137,8 @@ driveIsMediaRemovable :: (MonadIO m, DriveK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result driveIsMediaRemovable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_drive_is_media_removable _obj' @@ -999,11 +1146,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1018,10 +1168,10 @@ drivePollForMedia :: (MonadIO m, DriveK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result drivePollForMedia _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -1036,17 +1186,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_drive_poll_for_media _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1060,9 +1213,9 @@ drivePollForMediaFinish :: (MonadIO m, DriveK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result drivePollForMediaFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1075,11 +1228,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1096,20 +1252,20 @@ driveStart :: (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [DriveStartFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -driveStart _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -1122,18 +1278,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_drive_start _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_drive_start _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1147,9 +1306,9 @@ driveStartFinish :: (MonadIO m, DriveK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result driveStartFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1162,11 +1321,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1183,20 +1345,20 @@ driveStop :: (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -driveStop _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -1209,18 +1371,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_drive_stop _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_drive_stop _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1234,9 +1399,9 @@ driveStopFinish :: (MonadIO m, DriveK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result driveStopFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1248,5 +1413,9 @@ ) (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 --- a/GI/Gio/Interfaces/Drive.hs-boot +++ b/GI/Gio/Interfaces/Drive.hs-boot @@ -15,3 +15,30 @@ 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 --- a/GI/Gio/Interfaces/File.hs +++ b/GI/Gio/Interfaces/File.hs @@ -1,5197 +1,5994 @@ -{- | -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 - fileAppendTo , - - --- ** fileAppendToAsync - fileAppendToAsync , - - --- ** fileAppendToFinish - fileAppendToFinish , - - --- ** fileCopy - fileCopy , - - --- ** fileCopyAttributes - fileCopyAttributes , - - --- ** fileCopyFinish - fileCopyFinish , - - --- ** fileCreate - fileCreate , - - --- ** fileCreateAsync - fileCreateAsync , - - --- ** fileCreateFinish - fileCreateFinish , - - --- ** fileCreateReadwrite - fileCreateReadwrite , - - --- ** fileCreateReadwriteAsync - fileCreateReadwriteAsync , - - --- ** fileCreateReadwriteFinish - fileCreateReadwriteFinish , - - --- ** fileDelete - fileDelete , - - --- ** fileDeleteAsync - fileDeleteAsync , - - --- ** fileDeleteFinish - fileDeleteFinish , - - --- ** fileDup - fileDup , - - --- ** fileEjectMountable - fileEjectMountable , - - --- ** fileEjectMountableFinish - fileEjectMountableFinish , - - --- ** fileEjectMountableWithOperation - fileEjectMountableWithOperation , - - --- ** fileEjectMountableWithOperationFinish - fileEjectMountableWithOperationFinish , - - --- ** fileEnumerateChildren - fileEnumerateChildren , - - --- ** fileEnumerateChildrenAsync - fileEnumerateChildrenAsync , - - --- ** fileEnumerateChildrenFinish - fileEnumerateChildrenFinish , - - --- ** fileEqual - fileEqual , - - --- ** fileFindEnclosingMount - fileFindEnclosingMount , - - --- ** fileFindEnclosingMountAsync - fileFindEnclosingMountAsync , - - --- ** fileFindEnclosingMountFinish - fileFindEnclosingMountFinish , - - --- ** fileGetBasename - fileGetBasename , - - --- ** fileGetChild - fileGetChild , - - --- ** fileGetChildForDisplayName - fileGetChildForDisplayName , - - --- ** fileGetParent - fileGetParent , - - --- ** fileGetParseName - fileGetParseName , - - --- ** fileGetPath - fileGetPath , - - --- ** fileGetRelativePath - fileGetRelativePath , - - --- ** fileGetUri - fileGetUri , - - --- ** fileGetUriScheme - fileGetUriScheme , - - --- ** fileHasParent - fileHasParent , - - --- ** fileHasPrefix - fileHasPrefix , - - --- ** fileHasUriScheme - fileHasUriScheme , - - --- ** fileHash - fileHash , - - --- ** fileIsNative - fileIsNative , - - --- ** fileLoadContents - fileLoadContents , - - --- ** fileLoadContentsAsync - fileLoadContentsAsync , - - --- ** fileLoadContentsFinish - fileLoadContentsFinish , - - --- ** fileLoadPartialContentsFinish - fileLoadPartialContentsFinish , - - --- ** fileMakeDirectory - fileMakeDirectory , - - --- ** fileMakeDirectoryAsync - fileMakeDirectoryAsync , - - --- ** fileMakeDirectoryFinish - fileMakeDirectoryFinish , - - --- ** fileMakeDirectoryWithParents - fileMakeDirectoryWithParents , - - --- ** fileMakeSymbolicLink - fileMakeSymbolicLink , - - --- ** fileMeasureDiskUsageFinish - fileMeasureDiskUsageFinish , - - --- ** fileMonitor - fileMonitor , - - --- ** fileMonitorDirectory - fileMonitorDirectory , - - --- ** fileMonitorFile - fileMonitorFile , - - --- ** fileMountEnclosingVolume - fileMountEnclosingVolume , - - --- ** fileMountEnclosingVolumeFinish - fileMountEnclosingVolumeFinish , - - --- ** fileMountMountable - fileMountMountable , - - --- ** fileMountMountableFinish - fileMountMountableFinish , - - --- ** fileMove - fileMove , - - --- ** fileOpenReadwrite - fileOpenReadwrite , - - --- ** fileOpenReadwriteAsync - fileOpenReadwriteAsync , - - --- ** fileOpenReadwriteFinish - fileOpenReadwriteFinish , - - --- ** filePollMountable - filePollMountable , - - --- ** filePollMountableFinish - filePollMountableFinish , - - --- ** fileQueryDefaultHandler - fileQueryDefaultHandler , - - --- ** fileQueryExists - fileQueryExists , - - --- ** fileQueryFileType - fileQueryFileType , - - --- ** fileQueryFilesystemInfo - fileQueryFilesystemInfo , - - --- ** fileQueryFilesystemInfoAsync - fileQueryFilesystemInfoAsync , - - --- ** fileQueryFilesystemInfoFinish - fileQueryFilesystemInfoFinish , - - --- ** fileQueryInfo - fileQueryInfo , - - --- ** fileQueryInfoAsync - fileQueryInfoAsync , - - --- ** fileQueryInfoFinish - fileQueryInfoFinish , - - --- ** fileQuerySettableAttributes - fileQuerySettableAttributes , - - --- ** fileQueryWritableNamespaces - fileQueryWritableNamespaces , - - --- ** fileRead - fileRead , - - --- ** fileReadAsync - fileReadAsync , - - --- ** fileReadFinish - fileReadFinish , - - --- ** fileReplace - fileReplace , - - --- ** fileReplaceAsync - fileReplaceAsync , - - --- ** fileReplaceContents - fileReplaceContents , - - --- ** fileReplaceContentsAsync - fileReplaceContentsAsync , - - --- ** fileReplaceContentsBytesAsync - fileReplaceContentsBytesAsync , - - --- ** fileReplaceContentsFinish - fileReplaceContentsFinish , - - --- ** fileReplaceFinish - fileReplaceFinish , - - --- ** fileReplaceReadwrite - fileReplaceReadwrite , - - --- ** fileReplaceReadwriteAsync - fileReplaceReadwriteAsync , - - --- ** fileReplaceReadwriteFinish - fileReplaceReadwriteFinish , - - --- ** fileResolveRelativePath - fileResolveRelativePath , - - --- ** fileSetAttribute - fileSetAttribute , - - --- ** fileSetAttributeByteString - fileSetAttributeByteString , - - --- ** fileSetAttributeInt32 - fileSetAttributeInt32 , - - --- ** fileSetAttributeInt64 - fileSetAttributeInt64 , - - --- ** fileSetAttributeString - fileSetAttributeString , - - --- ** fileSetAttributeUint32 - fileSetAttributeUint32 , - - --- ** fileSetAttributeUint64 - fileSetAttributeUint64 , - - --- ** fileSetAttributesAsync - fileSetAttributesAsync , - - --- ** fileSetAttributesFinish - fileSetAttributesFinish , - - --- ** fileSetAttributesFromInfo - fileSetAttributesFromInfo , - - --- ** fileSetDisplayName - fileSetDisplayName , - - --- ** fileSetDisplayNameAsync - fileSetDisplayNameAsync , - - --- ** fileSetDisplayNameFinish - fileSetDisplayNameFinish , - - --- ** fileStartMountable - fileStartMountable , - - --- ** fileStartMountableFinish - fileStartMountableFinish , - - --- ** fileStopMountable - fileStopMountable , - - --- ** fileStopMountableFinish - fileStopMountableFinish , - - --- ** fileSupportsThreadContexts - fileSupportsThreadContexts , - - --- ** fileTrash - fileTrash , - - --- ** fileTrashAsync - fileTrashAsync , - - --- ** fileTrashFinish - fileTrashFinish , - - --- ** fileUnmountMountable - fileUnmountMountable , - - --- ** fileUnmountMountableFinish - fileUnmountMountableFinish , - - --- ** fileUnmountMountableWithOperation - fileUnmountMountableWithOperation , - - --- ** fileUnmountMountableWithOperationFinish - fileUnmountMountableWithOperationFinish , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gio.Types -import GI.Gio.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface File - -newtype File = File (ForeignPtr File) -noFile :: Maybe File -noFile = Nothing - -type instance AttributeList File = FileAttributeList -type FileAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList File = FileSignalList -type FileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::append_to_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileAppendToAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - [FileCreateFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileAppendToAsync _obj flags io_priority 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 user_data = nullPtr - g_file_append_to_async _obj' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::append_to_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - 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) -> -- progress_callback - m () -fileCopy _obj destination flags cancellable progress_callback = 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' - maybeProgress_callback <- case progress_callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jProgress_callback -> do - jProgress_callback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgress_callback) - return jProgress_callback' - let progress_callback_data = nullPtr - onException (do - _ <- propagateGError $ g_file_copy _obj' destination' flags' maybeCancellable maybeProgress_callback progress_callback_data - safeFreeFunPtr $ castFunPtrToPtr maybeProgress_callback - touchManagedPtr _obj - touchManagedPtr destination - whenJust cancellable touchManagedPtr - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr maybeProgress_callback - return () - ) - --- method File::copy_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::copy_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::create --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::create_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileCreateAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - [FileCreateFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileCreateAsync _obj flags io_priority 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 user_data = nullPtr - g_file_create_async _obj' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::create_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::create_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::create_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileCreateReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - [FileCreateFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileCreateReadwriteAsync _obj flags io_priority 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 user_data = nullPtr - g_file_create_readwrite_async _obj' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::create_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::delete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::delete_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileDeleteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileDeleteAsync _obj io_priority 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 user_data = nullPtr - g_file_delete_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::delete_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::dup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::eject_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - 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 () -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 user_data = nullPtr - g_file_eject_mountable _obj' flags' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::eject_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::eject_mountable_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileEjectMountableWithOperation :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileEjectMountableWithOperation _obj flags mount_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMount_operation <- case mount_operation of - Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' - 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 user_data = nullPtr - g_file_eject_mountable_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust mount_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::eject_mountable_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::enumerate_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - --- method File::enumerate_children_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileEnumerateChildrenAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - [FileQueryInfoFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileEnumerateChildrenAsync _obj attributes flags io_priority 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 user_data = nullPtr - g_file_enumerate_children_async _obj' attributes' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - --- method File::enumerate_children_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file2", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file2", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::find_enclosing_mount --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::find_enclosing_mount_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileFindEnclosingMountAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileFindEnclosingMountAsync _obj io_priority 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 user_data = nullPtr - g_file_find_enclosing_mount_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::find_enclosing_mount_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::get_basename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -fileGetBasename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_basename _obj' - checkUnexpectedReturnNULL "g_file_get_basename" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method File::get_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::get_child_for_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- display_name - m File -fileGetChildForDisplayName _obj display_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - display_name' <- textToCString display_name - onException (do - result <- propagateGError $ g_file_get_child_for_display_name _obj' display_name' - checkUnexpectedReturnNULL "g_file_get_child_for_display_name" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem display_name' - return result' - ) (do - freeMem display_name' - ) - --- method File::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 File -fileGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_parent _obj' - checkUnexpectedReturnNULL "g_file_get_parent" result - result' <- (wrapObject File) result - touchManagedPtr _obj - return result' - --- method File::get_parse_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -fileGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_path _obj' - checkUnexpectedReturnNULL "g_file_get_path" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method File::get_relative_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -fileGetRelativePath _obj descendant = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let descendant' = unsafeManagedPtrCastPtr descendant - result <- g_file_get_relative_path _obj' descendant' - checkUnexpectedReturnNULL "g_file_get_relative_path" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr descendant - return result' - --- method File::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::get_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::has_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::has_prefix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::has_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- uri_scheme - m Bool -fileHasUriScheme _obj uri_scheme = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri_scheme' <- textToCString uri_scheme - result <- g_file_has_uri_scheme _obj' uri_scheme' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri_scheme' - return result' - --- method File::hash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -fileHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_hash _obj' - touchManagedPtr _obj - return result - --- method File::is_native --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileIsNative _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_is_native _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method File::load_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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) - etag_out <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_contents _obj' maybeCancellable contents length_ etag_out - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etag_out' <- peek etag_out - etag_out'' <- cstringToText etag_out' - freeMem etag_out' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents - freeMem length_ - freeMem etag_out - return (contents'', etag_out'') - ) (do - freeMem contents - freeMem length_ - freeMem etag_out - ) - --- method File::load_contents_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileLoadContentsAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_file_load_contents_async _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::load_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -fileLoadContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - etag_out <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_contents_finish _obj' res' contents length_ etag_out - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etag_out' <- peek etag_out - etag_out'' <- cstringToText etag_out' - freeMem etag_out' - touchManagedPtr _obj - touchManagedPtr res - freeMem contents - freeMem length_ - freeMem etag_out - return (contents'', etag_out'') - ) (do - freeMem contents - freeMem length_ - freeMem etag_out - ) - --- method File::load_partial_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -fileLoadPartialContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - etag_out <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_partial_contents_finish _obj' res' contents length_ etag_out - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etag_out' <- peek etag_out - etag_out'' <- cstringToText etag_out' - freeMem etag_out' - touchManagedPtr _obj - touchManagedPtr res - freeMem contents - freeMem length_ - freeMem etag_out - return (contents'', etag_out'') - ) (do - freeMem contents - freeMem length_ - freeMem etag_out - ) - --- method File::make_directory --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::make_directory_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileMakeDirectoryAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileMakeDirectoryAsync _obj io_priority 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 user_data = nullPtr - g_file_make_directory_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::make_directory_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::make_directory_with_parents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::make_symbolic_link --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- symlink_value - Maybe (b) -> -- cancellable - m () -fileMakeSymbolicLink _obj symlink_value cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - symlink_value' <- textToCString symlink_value - 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' symlink_value' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem symlink_value' - return () - ) (do - freeMem symlink_value' - ) - --- method File::measure_disk_usage_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disk_usage", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "num_files", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -fileMeasureDiskUsageFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - disk_usage <- allocMem :: IO (Ptr Word64) - num_dirs <- allocMem :: IO (Ptr Word64) - num_files <- allocMem :: IO (Ptr Word64) - onException (do - _ <- propagateGError $ g_file_measure_disk_usage_finish _obj' result_' disk_usage num_dirs num_files - disk_usage' <- peek disk_usage - num_dirs' <- peek num_dirs - num_files' <- peek num_files - touchManagedPtr _obj - touchManagedPtr result_ - freeMem disk_usage - freeMem num_dirs - freeMem num_files - return (disk_usage', num_dirs', num_files') - ) (do - freeMem disk_usage - freeMem num_dirs - freeMem num_files - ) - --- method File::monitor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::monitor_directory --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::monitor_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::mount_enclosing_volume --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileMountEnclosingVolume :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountMountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileMountEnclosingVolume _obj flags mount_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMount_operation <- case mount_operation of - Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' - 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 user_data = nullPtr - g_file_mount_enclosing_volume _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust mount_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::mount_enclosing_volume_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::mount_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileMountMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountMountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileMountMountable _obj flags mount_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMount_operation <- case mount_operation of - Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' - 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 user_data = nullPtr - g_file_mount_mountable _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust mount_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::mount_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::move --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - 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) -> -- progress_callback - m () -fileMove _obj destination flags cancellable progress_callback = 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' - maybeProgress_callback <- case progress_callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jProgress_callback -> do - jProgress_callback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgress_callback) - return jProgress_callback' - let progress_callback_data = nullPtr - onException (do - _ <- propagateGError $ g_file_move _obj' destination' flags' maybeCancellable maybeProgress_callback progress_callback_data - safeFreeFunPtr $ castFunPtrToPtr maybeProgress_callback - touchManagedPtr _obj - touchManagedPtr destination - whenJust cancellable touchManagedPtr - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr maybeProgress_callback - return () - ) - --- method File::open_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::open_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileOpenReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileOpenReadwriteAsync _obj io_priority 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 user_data = nullPtr - g_file_open_readwrite_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::open_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::poll_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -filePollMountable :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_file_poll_mountable _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::poll_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::query_default_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::query_exists --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::query_file_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method File::query_filesystem_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - --- method File::query_filesystem_info_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileQueryFilesystemInfoAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileQueryFilesystemInfoAsync _obj attributes io_priority 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 user_data = nullPtr - g_file_query_filesystem_info_async _obj' attributes' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - --- method File::query_filesystem_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::query_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - --- method File::query_info_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileQueryInfoAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - [FileQueryInfoFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileQueryInfoAsync _obj attributes flags io_priority 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 user_data = nullPtr - g_file_query_info_async _obj' attributes' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - --- method File::query_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::query_settable_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::query_writable_namespaces --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::read --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::read_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileReadAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileReadAsync _obj io_priority 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 user_data = nullPtr - g_file_read_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::read_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::replace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- make_backup - [FileCreateFlags] -> -- flags - Maybe (b) -> -- cancellable - m FileOutputStream -fileReplace _obj etag make_backup flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let make_backup' = (fromIntegral . fromEnum) make_backup - 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 make_backup' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_replace" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return result' - ) (do - freeMem maybeEtag - ) - --- method File::replace_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileReplaceAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Maybe (T.Text) -> -- etag - Bool -> -- make_backup - [FileCreateFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileReplaceAsync _obj etag make_backup flags io_priority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let make_backup' = (fromIntegral . fromEnum) make_backup - 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 user_data = nullPtr - g_file_replace_async _obj' maybeEtag make_backup' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - --- method File::replace_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- make_backup - [FileCreateFlags] -> -- flags - Maybe (b) -> -- cancellable - m (T.Text) -fileReplaceContents _obj contents etag make_backup 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 make_backup' = (fromIntegral . fromEnum) make_backup - let flags' = gflagsToWord flags - new_etag <- 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 make_backup' flags' new_etag maybeCancellable - new_etag' <- peek new_etag - new_etag'' <- cstringToText new_etag' - freeMem new_etag' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents' - freeMem maybeEtag - freeMem new_etag - return new_etag'' - ) (do - freeMem contents' - freeMem maybeEtag - freeMem new_etag - ) - --- method File::replace_contents_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileReplaceContentsAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - ByteString -> -- contents - Maybe (T.Text) -> -- etag - Bool -> -- make_backup - [FileCreateFlags] -> -- flags - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileReplaceContentsAsync _obj contents etag make_backup 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 make_backup' = (fromIntegral . fromEnum) make_backup - 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 user_data = nullPtr - g_file_replace_contents_async _obj' contents' length_ maybeEtag make_backup' flags' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents' - freeMem maybeEtag - return () - --- method File::replace_contents_bytes_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileReplaceContentsBytesAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - GLib.Bytes -> -- contents - Maybe (T.Text) -> -- etag - Bool -> -- make_backup - [FileCreateFlags] -> -- flags - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileReplaceContentsBytesAsync _obj contents etag make_backup 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 make_backup' = (fromIntegral . fromEnum) make_backup - 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 user_data = nullPtr - g_file_replace_contents_bytes_async _obj' contents' maybeEtag make_backup' flags' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr contents - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - --- method File::replace_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -fileReplaceContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - new_etag <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_replace_contents_finish _obj' res' new_etag - new_etag' <- peek new_etag - new_etag'' <- cstringToText new_etag' - freeMem new_etag' - touchManagedPtr _obj - touchManagedPtr res - freeMem new_etag - return new_etag'' - ) (do - freeMem new_etag - ) - --- method File::replace_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::replace_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- make_backup - [FileCreateFlags] -> -- flags - Maybe (b) -> -- cancellable - m FileIOStream -fileReplaceReadwrite _obj etag make_backup flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let make_backup' = (fromIntegral . fromEnum) make_backup - 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 make_backup' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_replace_readwrite" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return result' - ) (do - freeMem maybeEtag - ) - --- method File::replace_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileReplaceReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Maybe (T.Text) -> -- etag - Bool -> -- make_backup - [FileCreateFlags] -> -- flags - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileReplaceReadwriteAsync _obj etag make_backup flags io_priority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let make_backup' = (fromIntegral . fromEnum) make_backup - 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 user_data = nullPtr - g_file_replace_readwrite_async _obj' maybeEtag make_backup' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - --- method File::replace_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::resolve_relative_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- relative_path - m File -fileResolveRelativePath _obj relative_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - relative_path' <- textToCString relative_path - result <- g_file_resolve_relative_path _obj' relative_path' - checkUnexpectedReturnNULL "g_file_resolve_relative_path" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem relative_path' - return result' - --- method File::set_attribute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - 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 - Maybe (Ptr ()) -> -- value_p - [FileQueryInfoFlags] -> -- flags - Maybe (b) -> -- cancellable - m () -fileSetAttribute _obj attribute type_ value_p flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let type_' = (fromIntegral . fromEnum) type_ - maybeValue_p <- case value_p of - Nothing -> return nullPtr - Just jValue_p -> do - return jValue_p - 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_' maybeValue_p flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - --- method File::set_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method File::set_attributes_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileSetAttributesAsync :: - (MonadIO m, FileK a, FileInfoK b, CancellableK c) => - a -> -- _obj - b -> -- info - [FileQueryInfoFlags] -> -- flags - Int32 -> -- io_priority - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileSetAttributesAsync _obj info flags io_priority 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 user_data = nullPtr - g_file_set_attributes_async _obj' info' flags' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr info - whenJust cancellable touchManagedPtr - return () - --- method File::set_attributes_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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 - ) - --- method File::set_attributes_from_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::set_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- display_name - Maybe (b) -> -- cancellable - m File -fileSetDisplayName _obj display_name cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - display_name' <- textToCString display_name - 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' display_name' maybeCancellable - checkUnexpectedReturnNULL "g_file_set_display_name" result - result' <- (wrapObject File) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem display_name' - return result' - ) (do - freeMem display_name' - ) - --- method File::set_display_name_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileSetDisplayNameAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - T.Text -> -- display_name - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileSetDisplayNameAsync _obj display_name io_priority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - display_name' <- textToCString display_name - 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 user_data = nullPtr - g_file_set_display_name_async _obj' display_name' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem display_name' - return () - --- method File::set_display_name_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method File::start_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileStartMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [DriveStartFlags] -> -- flags - Maybe (b) -> -- start_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileStartMountable _obj flags start_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeStart_operation <- case start_operation of - Nothing -> return nullPtr - Just jStart_operation -> do - let jStart_operation' = unsafeManagedPtrCastPtr jStart_operation - return jStart_operation' - 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 user_data = nullPtr - g_file_start_mountable _obj' flags' maybeStart_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust start_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::start_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::stop_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileStopMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileStopMountable _obj flags mount_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMount_operation <- case mount_operation of - Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' - 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 user_data = nullPtr - g_file_stop_mountable _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust mount_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::stop_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::supports_thread_contexts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileSupportsThreadContexts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_supports_thread_contexts _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method File::trash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::trash_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -fileTrashAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileTrashAsync _obj io_priority 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 user_data = nullPtr - g_file_trash_async _obj' io_priority maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::trash_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::unmount_mountable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - 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 () -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 user_data = nullPtr - g_file_unmount_mountable _obj' flags' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method File::unmount_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method File::unmount_mountable_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileUnmountMountableWithOperation :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileUnmountMountableWithOperation _obj flags mount_operation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMount_operation <- case mount_operation of - Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' - 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 user_data = nullPtr - g_file_unmount_mountable_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust mount_operation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method File::unmount_mountable_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) + +{- | +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 Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gio.Types +import GI.Gio.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +-- 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_append_to_async" g_file_append_to_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_create_async" g_file_create_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_create_readwrite_async" g_file_create_readwrite_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_delete_async" g_file_delete_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_find_enclosing_mount_async" g_file_find_enclosing_mount_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 T.Text -- result +fileGetBasename _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_file_get_basename _obj' + checkUnexpectedReturnNULL "g_file_get_basename" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileGetBasenameMethodInfo +instance (signature ~ (m 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 : 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 : 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 : 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 File -- result +fileGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_file_get_parent _obj' + checkUnexpectedReturnNULL "g_file_get_parent" result + result' <- (wrapObject File) result + touchManagedPtr _obj + return result' + +data FileGetParentMethodInfo +instance (signature ~ (m 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 : 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 : 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 T.Text -- result +fileGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- g_file_get_path _obj' + checkUnexpectedReturnNULL "g_file_get_path" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data FileGetPathMethodInfo +instance (signature ~ (m 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 : 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 T.Text -- result +fileGetRelativePath _obj descendant = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let descendant' = unsafeManagedPtrCastPtr descendant + result <- g_file_get_relative_path _obj' descendant' + checkUnexpectedReturnNULL "g_file_get_relative_path" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr descendant + return result' + +data FileGetRelativePathMethodInfo +instance (signature ~ (b -> m 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 : 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 : 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 : 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 : 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 : 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 : TBasicType TUInt32 +-- 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 : 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_make_directory_async" g_file_make_directory_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_open_readwrite_async" g_file_open_readwrite_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_read_async" g_file_read_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TVoid, 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 : TBasicType TVoid +-- 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 TVoid + 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 TVoid, 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 : 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 TVoid + 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_ + -> Maybe (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_ + maybeValueP <- case valueP of + Nothing -> return nullPtr + Just jValueP -> do + return jValueP + 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_' maybeValueP flags' maybeCancellable + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem attribute' + return () + ) (do + freeMem attribute' + ) + +data FileSetAttributeMethodInfo +instance (signature ~ (T.Text -> FileAttributeType -> Maybe (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 : 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 : 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 : 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_trash_async" g_file_trash_async :: + Ptr File -> -- _obj : TInterface "Gio" "File" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 --- a/GI/Gio/Interfaces/File.hs-boot +++ b/GI/Gio/Interfaces/File.hs-boot @@ -11,3 +11,117 @@ 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 --- a/GI/Gio/Interfaces/FileDescriptorBased.hs +++ b/GI/Gio/Interfaces/FileDescriptorBased.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** fileDescriptorBasedGetFd + FileDescriptorBasedGetFdMethodInfo , fileDescriptorBasedGetFd , @@ -41,11 +43,45 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileDescriptorBasedSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_file_descriptor_based_get_type" c_g_file_descriptor_based_get_type :: IO GType @@ -66,9 +102,8 @@ -- method FileDescriptorBased::get_fd -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileDescriptorBased", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileDescriptorBased", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileDescriptorBased", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -80,12 +115,16 @@ fileDescriptorBasedGetFd :: (MonadIO m, FileDescriptorBasedK a) => - a -> -- _obj - m Int32 + 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 --- a/GI/Gio/Interfaces/FileDescriptorBased.hs-boot +++ b/GI/Gio/Interfaces/FileDescriptorBased.hs-boot @@ -11,3 +11,4 @@ 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 --- a/GI/Gio/Interfaces/Icon.hs +++ b/GI/Gio/Interfaces/Icon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,15 +17,30 @@ -- * Methods +-- ** iconDeserialize + iconDeserialize , + + -- ** iconEqual + IconEqualMethodInfo , iconEqual , +-- ** iconHash + iconHash , + + +-- ** iconNewForString + iconNewForString , + + -- ** iconSerialize + IconSerializeMethodInfo , iconSerialize , -- ** iconToString + IconToStringMethodInfo , iconToString , @@ -49,11 +65,47 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_icon_get_type" c_g_icon_get_type :: IO GType @@ -74,9 +126,8 @@ -- method Icon::equal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon2", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon2", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -89,9 +140,9 @@ iconEqual :: (MonadIO m, IconK a, IconK b) => - a -> -- _obj - Maybe (b) -> -- icon2 - m Bool + a -- _obj + -> Maybe (b) -- icon2 + -> m Bool -- result iconEqual _obj icon2 = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIcon2 <- case icon2 of @@ -105,11 +156,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -121,8 +175,8 @@ iconSerialize :: (MonadIO m, IconK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result iconSerialize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_icon_serialize _obj' @@ -131,11 +185,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -147,8 +204,8 @@ iconToString :: (MonadIO m, IconK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result iconToString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_icon_to_string _obj' @@ -157,5 +214,84 @@ freeMem result touchManagedPtr _obj return result' + +data IconToStringMethodInfo +instance (signature ~ (m 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 : 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_icon_hash" g_icon_hash :: + Ptr () -> -- icon : TBasicType TVoid + 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 : 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 --- a/GI/Gio/Interfaces/Icon.hs-boot +++ b/GI/Gio/Interfaces/Icon.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Interfaces/Initable.hs +++ b/GI/Gio/Interfaces/Initable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,11 +18,16 @@ -- * Methods -- ** initableInit + InitableInitMethodInfo , initableInit , +-- ** initableNewv + initableNewv , + + ) where import Prelude () @@ -41,11 +47,45 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_initable_get_type" c_g_initable_get_type :: IO GType @@ -66,9 +106,8 @@ -- method Initable::init -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Initable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Initable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -82,9 +121,9 @@ initableInit :: (MonadIO m, InitableK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result initableInit _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -99,6 +138,55 @@ 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 TUInt32, 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : 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 TUInt32 + 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 --- a/GI/Gio/Interfaces/Initable.hs-boot +++ b/GI/Gio/Interfaces/Initable.hs-boot @@ -11,3 +11,4 @@ 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 --- a/GI/Gio/Interfaces/ListModel.hs +++ b/GI/Gio/Interfaces/ListModel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** listModelGetItem + ListModelGetItemMethodInfo , listModelGetItem , -- ** listModelGetItemType + ListModelGetItemTypeMethodInfo , listModelGetItemType , -- ** listModelGetNItems + ListModelGetNItemsMethodInfo , listModelGetNItems , -- ** listModelItemsChanged + ListModelItemsChangedMethodInfo , listModelItemsChanged , @@ -68,6 +73,43 @@ 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 -> @@ -124,7 +166,7 @@ connectSignal _ = connectListModelItemsChanged type instance SignalList ListModel = ListModelSignalList -type ListModelSignalList = ('[ '("items-changed", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListModelSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_list_model_get_type" c_g_list_model_get_type :: IO GType @@ -145,9 +187,8 @@ -- method ListModel::get_item_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -159,8 +200,8 @@ listModelGetItemType :: (MonadIO m, ListModelK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result listModelGetItemType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_list_model_get_item_type _obj' @@ -168,11 +209,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -184,19 +228,22 @@ listModelGetNItems :: (MonadIO m, ListModelK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -209,9 +256,9 @@ listModelGetItem :: (MonadIO m, ListModelK a) => - a -> -- _obj - Word32 -> -- position - m GObject.Object + a -- _obj + -> Word32 -- position + -> m GObject.Object -- result listModelGetItem _obj position = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_list_model_get_object _obj' position @@ -220,11 +267,14 @@ touchManagedPtr _obj return result' +data ListModelGetItemMethodInfo +instance (signature ~ (Word32 -> m GObject.Object), MonadIO m, ListModelK a) => MethodInfo ListModelGetItemMethodInfo a signature where + overloadedMethod _ = listModelGetItem + -- method ListModel::items_changed -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "removed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "removed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -239,15 +289,19 @@ listModelItemsChanged :: (MonadIO m, ListModelK a) => - a -> -- _obj - Word32 -> -- position - Word32 -> -- removed - Word32 -> -- added - m () + 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 --- a/GI/Gio/Interfaces/ListModel.hs-boot +++ b/GI/Gio/Interfaces/ListModel.hs-boot @@ -12,3 +12,7 @@ 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 --- a/GI/Gio/Interfaces/LoadableIcon.hs +++ b/GI/Gio/Interfaces/LoadableIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** loadableIconLoad + LoadableIconLoadMethodInfo , loadableIconLoad , -- ** loadableIconLoadAsync + LoadableIconLoadAsyncMethodInfo , loadableIconLoadAsync , -- ** loadableIconLoadFinish + LoadableIconLoadFinishMethodInfo , loadableIconLoadFinish , @@ -49,11 +53,50 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type LoadableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_loadable_icon_get_type" c_g_loadable_icon_get_type :: IO GType @@ -74,9 +117,8 @@ -- method LoadableIcon::load -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : True -- Skip return : False @@ -92,10 +134,10 @@ loadableIconLoad :: (MonadIO m, LoadableIconK a, CancellableK b) => - a -> -- _obj - Int32 -> -- size - Maybe (b) -> -- cancellable - m (InputStream,T.Text) + 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) @@ -119,11 +161,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -139,11 +184,11 @@ loadableIconLoadAsync :: (MonadIO m, LoadableIconK a, CancellableK b) => - a -> -- _obj - Int32 -> -- size - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -158,17 +203,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_loadable_icon_load_async _obj' size maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : True -- Skip return : False @@ -183,9 +231,9 @@ loadableIconLoadFinish :: (MonadIO m, LoadableIconK a, AsyncResultK b) => - a -> -- _obj - b -> -- res - m (InputStream,T.Text) + a -- _obj + -> b -- res + -> m (InputStream,T.Text) -- result loadableIconLoadFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res @@ -204,5 +252,9 @@ ) (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 --- a/GI/Gio/Interfaces/LoadableIcon.hs-boot +++ b/GI/Gio/Interfaces/LoadableIcon.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Interfaces/Mount.hs +++ b/GI/Gio/Interfaces/Mount.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,110 +18,137 @@ -- * 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 , @@ -184,6 +212,66 @@ 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 () @@ -317,7 +405,7 @@ connectSignal _ = connectMountUnmounted type instance SignalList Mount = MountSignalList -type MountSignalList = ('[ '("changed", MountChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pre-unmount", MountPreUnmountSignalInfo), '("unmounted", MountUnmountedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -338,9 +426,8 @@ -- method Mount::can_eject -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -352,8 +439,8 @@ mountCanEject :: (MonadIO m, MountK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result mountCanEject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_can_eject _obj' @@ -361,11 +448,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -377,8 +467,8 @@ mountCanUnmount :: (MonadIO m, MountK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result mountCanUnmount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_can_unmount _obj' @@ -386,11 +476,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -406,11 +499,11 @@ {-# 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 () + 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 @@ -426,17 +519,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_eject _obj' flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -450,9 +546,9 @@ {-# 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 () + a -- _obj + -> b -- result_ + -> m () -- result mountEjectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -465,11 +561,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -486,20 +585,20 @@ mountEjectWithOperation :: (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -mountEjectWithOperation _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -512,18 +611,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_eject_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_mount_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -537,9 +639,9 @@ mountEjectWithOperationFinish :: (MonadIO m, MountK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result mountEjectWithOperationFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -552,11 +654,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -568,8 +673,8 @@ mountGetDefaultLocation :: (MonadIO m, MountK a) => - a -> -- _obj - m File + a -- _obj + -> m File -- result mountGetDefaultLocation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_default_location _obj' @@ -578,11 +683,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Drive" -- throws : False -- Skip return : False @@ -594,8 +702,8 @@ mountGetDrive :: (MonadIO m, MountK a) => - a -> -- _obj - m Drive + a -- _obj + -> m Drive -- result mountGetDrive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_drive _obj' @@ -604,11 +712,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -620,8 +731,8 @@ mountGetIcon :: (MonadIO m, MountK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result mountGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_icon _obj' @@ -630,11 +741,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -646,8 +760,8 @@ mountGetName :: (MonadIO m, MountK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_name _obj' @@ -657,11 +771,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -673,8 +790,8 @@ mountGetRoot :: (MonadIO m, MountK a) => - a -> -- _obj - m File + a -- _obj + -> m File -- result mountGetRoot _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_root _obj' @@ -683,11 +800,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -699,8 +819,8 @@ mountGetSortKey :: (MonadIO m, MountK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountGetSortKey _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_sort_key _obj' @@ -709,11 +829,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -725,8 +848,8 @@ mountGetSymbolicIcon :: (MonadIO m, MountK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result mountGetSymbolicIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_symbolic_icon _obj' @@ -735,11 +858,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -751,8 +877,8 @@ mountGetUuid :: (MonadIO m, MountK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountGetUuid _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_uuid _obj' @@ -762,11 +888,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Volume" -- throws : False -- Skip return : False @@ -778,8 +907,8 @@ mountGetVolume :: (MonadIO m, MountK a) => - a -> -- _obj - m Volume + a -- _obj + -> m Volume -- result mountGetVolume _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_get_volume _obj' @@ -788,11 +917,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -808,14 +940,14 @@ mountGuessContentType :: (MonadIO m, MountK a, CancellableK b) => - a -> -- _obj - Bool -> -- force_rescan - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -mountGuessContentType _obj force_rescan cancellable callback = liftIO $ do + a -- _obj + -> Bool -- forceRescan + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result +mountGuessContentType _obj forceRescan cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let force_rescan' = (fromIntegral . fromEnum) force_rescan + let forceRescan' = (fromIntegral . fromEnum) forceRescan maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -828,17 +960,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_guess_content_type _obj' force_rescan' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -852,9 +987,9 @@ mountGuessContentTypeFinish :: (MonadIO m, MountK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [T.Text] + a -- _obj + -> b -- result_ + -> m [T.Text] -- result mountGuessContentTypeFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -871,11 +1006,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -890,20 +1028,20 @@ mountGuessContentTypeSync :: (MonadIO m, MountK a, CancellableK b) => - a -> -- _obj - Bool -> -- force_rescan - Maybe (b) -> -- cancellable - m [T.Text] -mountGuessContentTypeSync _obj force_rescan cancellable = liftIO $ do + a -- _obj + -> Bool -- forceRescan + -> Maybe (b) -- cancellable + -> m [T.Text] -- result +mountGuessContentTypeSync _obj forceRescan cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let force_rescan' = (fromIntegral . fromEnum) force_rescan + 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' force_rescan' maybeCancellable + 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 @@ -915,11 +1053,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -931,8 +1072,8 @@ mountIsShadowed :: (MonadIO m, MountK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result mountIsShadowed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_is_shadowed _obj' @@ -940,11 +1081,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -961,20 +1105,20 @@ mountRemount :: (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountMountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -mountRemount _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -987,18 +1131,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_remount _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_mount_remount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1012,9 +1159,9 @@ mountRemountFinish :: (MonadIO m, MountK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result mountRemountFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1027,11 +1174,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1043,19 +1193,22 @@ mountShadow :: (MonadIO m, MountK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1071,11 +1224,11 @@ {-# 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 () + 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 @@ -1091,17 +1244,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_unmount _obj' flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1115,9 +1271,9 @@ {-# 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 () + a -- _obj + -> b -- result_ + -> m () -- result mountUnmountFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1130,11 +1286,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1151,20 +1310,20 @@ mountUnmountWithOperation :: (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -mountUnmountWithOperation _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -1177,18 +1336,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_mount_unmount_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_mount_unmount_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1202,9 +1364,9 @@ mountUnmountWithOperationFinish :: (MonadIO m, MountK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result mountUnmountWithOperationFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1217,11 +1379,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1233,12 +1398,16 @@ mountUnshadow :: (MonadIO m, MountK a) => - a -> -- _obj - m () + 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 --- a/GI/Gio/Interfaces/Mount.hs-boot +++ b/GI/Gio/Interfaces/Mount.hs-boot @@ -14,3 +14,30 @@ 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 --- a/GI/Gio/Interfaces/NetworkMonitor.hs +++ b/GI/Gio/Interfaces/NetworkMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,36 @@ -- * Methods -- ** networkMonitorCanReach + NetworkMonitorCanReachMethodInfo , networkMonitorCanReach , -- ** networkMonitorCanReachAsync + NetworkMonitorCanReachAsyncMethodInfo , networkMonitorCanReachAsync , -- ** networkMonitorCanReachFinish + NetworkMonitorCanReachFinishMethodInfo , networkMonitorCanReachFinish , -- ** networkMonitorGetConnectivity + NetworkMonitorGetConnectivityMethodInfo , networkMonitorGetConnectivity , +-- ** networkMonitorGetDefault + networkMonitorGetDefault , + + -- ** networkMonitorGetNetworkAvailable + NetworkMonitorGetNetworkAvailableMethodInfo, networkMonitorGetNetworkAvailable , -- ** networkMonitorGetNetworkMetered + NetworkMonitorGetNetworkMeteredMethodInfo, networkMonitorGetNetworkMetered , @@ -94,6 +105,46 @@ 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 -> @@ -149,7 +200,7 @@ type AttrSetTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) () type AttrBaseTypeConstraint NetworkMonitorConnectivityPropertyInfo = NetworkMonitorK type AttrGetType NetworkMonitorConnectivityPropertyInfo = NetworkConnectivity - type AttrLabel NetworkMonitorConnectivityPropertyInfo = "NetworkMonitor::connectivity" + type AttrLabel NetworkMonitorConnectivityPropertyInfo = "connectivity" attrGet _ = getNetworkMonitorConnectivity attrSet _ = undefined attrConstruct _ = undefined @@ -167,7 +218,7 @@ type AttrSetTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) () type AttrBaseTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = NetworkMonitorK type AttrGetType NetworkMonitorNetworkAvailablePropertyInfo = Bool - type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "NetworkMonitor::network-available" + type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "network-available" attrGet _ = getNetworkMonitorNetworkAvailable attrSet _ = undefined attrConstruct _ = undefined @@ -185,13 +236,13 @@ type AttrSetTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) () type AttrBaseTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = NetworkMonitorK type AttrGetType NetworkMonitorNetworkMeteredPropertyInfo = Bool - type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "NetworkMonitor::network-metered" + type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "network-metered" attrGet _ = getNetworkMonitorNetworkMetered attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList NetworkMonitor = NetworkMonitorAttributeList -type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("network-available", NetworkMonitorNetworkAvailablePropertyInfo), '("network-metered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)]) +type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("networkAvailable", NetworkMonitorNetworkAvailablePropertyInfo), '("networkMetered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)]) data NetworkMonitorNetworkChangedSignalInfo instance SignalInfo NetworkMonitorNetworkChangedSignalInfo where @@ -199,7 +250,7 @@ connectSignal _ = connectNetworkMonitorNetworkChanged type instance SignalList NetworkMonitor = NetworkMonitorSignalList -type NetworkMonitorSignalList = ('[ '("network-changed", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NetworkMonitorSignalList = ('[ '("networkChanged", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_network_monitor_get_type" c_g_network_monitor_get_type :: IO GType @@ -220,9 +271,8 @@ -- method NetworkMonitor::can_reach -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -237,10 +287,10 @@ networkMonitorCanReach :: (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => - a -> -- _obj - b -> -- connectable - Maybe (c) -> -- cancellable - m () + a -- _obj + -> b -- connectable + -> Maybe (c) -- cancellable + -> m () -- result networkMonitorCanReach _obj connectable cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let connectable' = unsafeManagedPtrCastPtr connectable @@ -259,11 +309,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -279,11 +332,11 @@ networkMonitorCanReachAsync :: (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => - a -> -- _obj - b -> -- connectable - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -299,18 +352,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_network_monitor_can_reach_async _obj' connectable' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -324,9 +380,9 @@ networkMonitorCanReachFinish :: (MonadIO m, NetworkMonitorK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result networkMonitorCanReachFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -339,11 +395,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkConnectivity" -- throws : False -- Skip return : False @@ -355,8 +414,8 @@ networkMonitorGetConnectivity :: (MonadIO m, NetworkMonitorK a) => - a -> -- _obj - m NetworkConnectivity + a -- _obj + -> m NetworkConnectivity -- result networkMonitorGetConnectivity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_monitor_get_connectivity _obj' @@ -364,11 +423,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -380,8 +442,8 @@ networkMonitorGetNetworkAvailable :: (MonadIO m, NetworkMonitorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result networkMonitorGetNetworkAvailable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_monitor_get_network_available _obj' @@ -389,11 +451,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -405,13 +470,38 @@ networkMonitorGetNetworkMetered :: (MonadIO m, NetworkMonitorK a) => - a -> -- _obj - m Bool + 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 : 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 --- a/GI/Gio/Interfaces/NetworkMonitor.hs-boot +++ b/GI/Gio/Interfaces/NetworkMonitor.hs-boot @@ -15,3 +15,9 @@ 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 --- a/GI/Gio/Interfaces/PollableInputStream.hs +++ b/GI/Gio/Interfaces/PollableInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** pollableInputStreamCanPoll + PollableInputStreamCanPollMethodInfo , pollableInputStreamCanPoll , -- ** pollableInputStreamCreateSource + PollableInputStreamCreateSourceMethodInfo, pollableInputStreamCreateSource , -- ** pollableInputStreamIsReadable + PollableInputStreamIsReadableMethodInfo , pollableInputStreamIsReadable , -- ** pollableInputStreamReadNonblocking + PollableInputStreamReadNonblockingMethodInfo, pollableInputStreamReadNonblocking , @@ -54,11 +59,67 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PollableInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_pollable_input_stream_get_type" c_g_pollable_input_stream_get_type :: IO GType @@ -79,9 +140,8 @@ -- method PollableInputStream::can_poll -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -93,8 +153,8 @@ pollableInputStreamCanPoll :: (MonadIO m, PollableInputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pollableInputStreamCanPoll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_pollable_input_stream_can_poll _obj' @@ -102,11 +162,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Source" -- throws : False -- Skip return : False @@ -119,9 +182,9 @@ pollableInputStreamCreateSource :: (MonadIO m, PollableInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m GLib.Source + a -- _obj + -> Maybe (b) -- cancellable + -> m GLib.Source -- result pollableInputStreamCreateSource _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -136,11 +199,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -152,8 +218,8 @@ pollableInputStreamIsReadable :: (MonadIO m, PollableInputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pollableInputStreamIsReadable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_pollable_input_stream_is_readable _obj' @@ -161,11 +227,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -181,10 +250,10 @@ pollableInputStreamReadNonblocking :: (MonadIO m, PollableInputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -203,5 +272,9 @@ ) (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 --- a/GI/Gio/Interfaces/PollableInputStream.hs-boot +++ b/GI/Gio/Interfaces/PollableInputStream.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/PollableOutputStream.hs +++ b/GI/Gio/Interfaces/PollableOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** pollableOutputStreamCanPoll + PollableOutputStreamCanPollMethodInfo , pollableOutputStreamCanPoll , -- ** pollableOutputStreamCreateSource + PollableOutputStreamCreateSourceMethodInfo, pollableOutputStreamCreateSource , -- ** pollableOutputStreamIsWritable + PollableOutputStreamIsWritableMethodInfo, pollableOutputStreamIsWritable , -- ** pollableOutputStreamWriteNonblocking + PollableOutputStreamWriteNonblockingMethodInfo, pollableOutputStreamWriteNonblocking , @@ -54,11 +59,71 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PollableOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_pollable_output_stream_get_type" c_g_pollable_output_stream_get_type :: IO GType @@ -79,9 +144,8 @@ -- method PollableOutputStream::can_poll -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -93,8 +157,8 @@ pollableOutputStreamCanPoll :: (MonadIO m, PollableOutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pollableOutputStreamCanPoll _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_pollable_output_stream_can_poll _obj' @@ -102,11 +166,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Source" -- throws : False -- Skip return : False @@ -119,9 +186,9 @@ pollableOutputStreamCreateSource :: (MonadIO m, PollableOutputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m GLib.Source + a -- _obj + -> Maybe (b) -- cancellable + -> m GLib.Source -- result pollableOutputStreamCreateSource _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -136,11 +203,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -152,8 +222,8 @@ pollableOutputStreamIsWritable :: (MonadIO m, PollableOutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pollableOutputStreamIsWritable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_pollable_output_stream_is_writable _obj' @@ -161,11 +231,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -181,10 +254,10 @@ pollableOutputStreamWriteNonblocking :: (MonadIO m, PollableOutputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -203,5 +276,9 @@ ) (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 --- a/GI/Gio/Interfaces/PollableOutputStream.hs-boot +++ b/GI/Gio/Interfaces/PollableOutputStream.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/Proxy.hs +++ b/GI/Gio/Interfaces/Proxy.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,26 @@ -- * Methods -- ** proxyConnect + ProxyConnectMethodInfo , proxyConnect , -- ** proxyConnectAsync + ProxyConnectAsyncMethodInfo , proxyConnectAsync , -- ** proxyConnectFinish + ProxyConnectFinishMethodInfo , proxyConnectFinish , +-- ** proxyGetDefaultForProtocol + proxyGetDefaultForProtocol , + + -- ** proxySupportsHostname + ProxySupportsHostnameMethodInfo , proxySupportsHostname , @@ -53,11 +62,48 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProxySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_proxy_get_type" c_g_proxy_get_type :: IO GType @@ -78,9 +124,8 @@ -- method Proxy::connect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "IOStream" -- throws : True -- Skip return : False @@ -96,38 +141,41 @@ proxyConnect :: (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => - a -> -- _obj - b -> -- connection - c -> -- proxy_address - Maybe (d) -> -- cancellable - m IOStream -proxyConnect _obj connection proxy_address cancellable = liftIO $ do + 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 proxy_address' = unsafeManagedPtrCastPtr proxy_address + 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' proxy_address' maybeCancellable + result <- propagateGError $ g_proxy_connect _obj' connection' proxyAddress' maybeCancellable checkUnexpectedReturnNULL "g_proxy_connect" result result' <- (wrapObject IOStream) result touchManagedPtr _obj touchManagedPtr connection - touchManagedPtr proxy_address + 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 {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -144,16 +192,16 @@ proxyConnectAsync :: (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => - a -> -- _obj - b -> -- connection - c -> -- proxy_address - Maybe (d) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -proxyConnectAsync _obj connection proxy_address cancellable callback = liftIO $ do + 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 proxy_address' = unsafeManagedPtrCastPtr proxy_address + let proxyAddress' = unsafeManagedPtrCastPtr proxyAddress maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -166,19 +214,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_proxy_connect_async _obj' connection' proxy_address' maybeCancellable maybeCallback user_data + let userData = nullPtr + g_proxy_connect_async _obj' connection' proxyAddress' maybeCancellable maybeCallback userData touchManagedPtr _obj touchManagedPtr connection - touchManagedPtr proxy_address + 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 {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "IOStream" -- throws : True -- Skip return : False @@ -192,9 +243,9 @@ proxyConnectFinish :: (MonadIO m, ProxyK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m IOStream + a -- _obj + -> b -- result_ + -> m IOStream -- result proxyConnectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -209,11 +260,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -225,13 +279,42 @@ proxySupportsHostname :: (MonadIO m, ProxyK a) => - a -> -- _obj - m Bool + 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 : 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 --- a/GI/Gio/Interfaces/Proxy.hs-boot +++ b/GI/Gio/Interfaces/Proxy.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/ProxyResolver.hs +++ b/GI/Gio/Interfaces/ProxyResolver.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,19 +17,27 @@ -- * Methods +-- ** proxyResolverGetDefault + proxyResolverGetDefault , + + -- ** proxyResolverIsSupported + ProxyResolverIsSupportedMethodInfo , proxyResolverIsSupported , -- ** proxyResolverLookup + ProxyResolverLookupMethodInfo , proxyResolverLookup , -- ** proxyResolverLookupAsync + ProxyResolverLookupAsyncMethodInfo , proxyResolverLookupAsync , -- ** proxyResolverLookupFinish + ProxyResolverLookupFinishMethodInfo , proxyResolverLookupFinish , @@ -53,11 +62,48 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_proxy_resolver_get_type" c_g_proxy_resolver_get_type :: IO GType @@ -78,9 +124,8 @@ -- method ProxyResolver::is_supported -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -92,8 +137,8 @@ proxyResolverIsSupported :: (MonadIO m, ProxyResolverK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result proxyResolverIsSupported _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_resolver_is_supported _obj' @@ -101,11 +146,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -120,10 +168,10 @@ proxyResolverLookup :: (MonadIO m, ProxyResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- uri - Maybe (b) -> -- cancellable - m [T.Text] + 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 @@ -146,11 +194,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -166,11 +217,11 @@ proxyResolverLookupAsync :: (MonadIO m, ProxyResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- uri - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -186,18 +237,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_proxy_resolver_lookup_async _obj' uri' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -211,9 +265,9 @@ proxyResolverLookupFinish :: (MonadIO m, ProxyResolverK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [T.Text] + a -- _obj + -> b -- result_ + -> m [T.Text] -- result proxyResolverLookupFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -229,5 +283,30 @@ ) (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 : 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 --- a/GI/Gio/Interfaces/ProxyResolver.hs-boot +++ b/GI/Gio/Interfaces/ProxyResolver.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Interfaces/RemoteActionGroup.hs +++ b/GI/Gio/Interfaces/RemoteActionGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** remoteActionGroupActivateActionFull + RemoteActionGroupActivateActionFullMethodInfo, remoteActionGroupActivateActionFull , -- ** remoteActionGroupChangeActionStateFull + RemoteActionGroupChangeActionStateFullMethodInfo, remoteActionGroupChangeActionStateFull , @@ -45,11 +48,60 @@ 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 = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -70,9 +122,8 @@ -- method RemoteActionGroup::activate_action_full -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -87,30 +138,33 @@ remoteActionGroupActivateActionFull :: (MonadIO m, RemoteActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - Maybe (GVariant) -> -- parameter - GVariant -> -- platform_data - m () -remoteActionGroupActivateActionFull _obj action_name parameter platform_data = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> Maybe (GVariant) -- parameter + -> GVariant -- platformData + -> m () -- result +remoteActionGroupActivateActionFull _obj actionName parameter platformData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName maybeParameter <- case parameter of Nothing -> return nullPtr Just jParameter -> do let jParameter' = unsafeManagedPtrGetPtr jParameter return jParameter' - let platform_data' = unsafeManagedPtrGetPtr platform_data - g_remote_action_group_activate_action_full _obj' action_name' maybeParameter platform_data' + let platformData' = unsafeManagedPtrGetPtr platformData + g_remote_action_group_activate_action_full _obj' actionName' maybeParameter platformData' touchManagedPtr _obj - freeMem action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -125,19 +179,23 @@ remoteActionGroupChangeActionStateFull :: (MonadIO m, RemoteActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - GVariant -> -- value - GVariant -> -- platform_data - m () -remoteActionGroupChangeActionStateFull _obj action_name value platform_data = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> GVariant -- value + -> GVariant -- platformData + -> m () -- result +remoteActionGroupChangeActionStateFull _obj actionName value platformData = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name + actionName' <- textToCString actionName let value' = unsafeManagedPtrGetPtr value - let platform_data' = unsafeManagedPtrGetPtr platform_data - g_remote_action_group_change_action_state_full _obj' action_name' value' platform_data' + let platformData' = unsafeManagedPtrGetPtr platformData + g_remote_action_group_change_action_state_full _obj' actionName' value' platformData' touchManagedPtr _obj - freeMem action_name' + 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 --- a/GI/Gio/Interfaces/RemoteActionGroup.hs-boot +++ b/GI/Gio/Interfaces/RemoteActionGroup.hs-boot @@ -11,3 +11,5 @@ 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 --- a/GI/Gio/Interfaces/Seekable.hs +++ b/GI/Gio/Interfaces/Seekable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** seekableCanSeek + SeekableCanSeekMethodInfo , seekableCanSeek , -- ** seekableCanTruncate + SeekableCanTruncateMethodInfo , seekableCanTruncate , -- ** seekableSeek + SeekableSeekMethodInfo , seekableSeek , -- ** seekableTell + SeekableTellMethodInfo , seekableTell , -- ** seekableTruncate + SeekableTruncateMethodInfo , seekableTruncate , @@ -58,11 +64,49 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SeekableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_seekable_get_type" c_g_seekable_get_type :: IO GType @@ -83,9 +127,8 @@ -- method Seekable::can_seek -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -97,8 +140,8 @@ seekableCanSeek :: (MonadIO m, SeekableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result seekableCanSeek _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_seekable_can_seek _obj' @@ -106,11 +149,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -122,8 +168,8 @@ seekableCanTruncate :: (MonadIO m, SeekableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result seekableCanTruncate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_seekable_can_truncate _obj' @@ -131,11 +177,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -151,11 +200,11 @@ seekableSeek :: (MonadIO m, SeekableK a, CancellableK b) => - a -> -- _obj - Int64 -> -- offset - GLib.SeekType -> -- type - Maybe (b) -> -- cancellable - m () + 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_ @@ -173,11 +222,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -189,19 +241,22 @@ seekableTell :: (MonadIO m, SeekableK a) => - a -> -- _obj - m Int64 + 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 {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -216,10 +271,10 @@ seekableTruncate :: (MonadIO m, SeekableK a, CancellableK b) => - a -> -- _obj - Int64 -> -- offset - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Int64 -- offset + -> Maybe (b) -- cancellable + -> m () -- result seekableTruncate _obj offset cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -235,5 +290,9 @@ ) (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 --- a/GI/Gio/Interfaces/Seekable.hs-boot +++ b/GI/Gio/Interfaces/Seekable.hs-boot @@ -11,3 +11,8 @@ 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 --- a/GI/Gio/Interfaces/SocketConnectable.hs +++ b/GI/Gio/Interfaces/SocketConnectable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** socketConnectableEnumerate + SocketConnectableEnumerateMethodInfo , socketConnectableEnumerate , -- ** socketConnectableProxyEnumerate + SocketConnectableProxyEnumerateMethodInfo, socketConnectableProxyEnumerate , @@ -45,11 +48,46 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketConnectableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_socket_connectable_get_type" c_g_socket_connectable_get_type :: IO GType @@ -70,9 +108,8 @@ -- method SocketConnectable::enumerate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddressEnumerator" -- throws : False -- Skip return : False @@ -84,8 +121,8 @@ socketConnectableEnumerate :: (MonadIO m, SocketConnectableK a) => - a -> -- _obj - m SocketAddressEnumerator + a -- _obj + -> m SocketAddressEnumerator -- result socketConnectableEnumerate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_connectable_enumerate _obj' @@ -94,11 +131,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddressEnumerator" -- throws : False -- Skip return : False @@ -110,8 +150,8 @@ socketConnectableProxyEnumerate :: (MonadIO m, SocketConnectableK a) => - a -> -- _obj - m SocketAddressEnumerator + a -- _obj + -> m SocketAddressEnumerator -- result socketConnectableProxyEnumerate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_connectable_proxy_enumerate _obj' @@ -119,5 +159,9 @@ 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 --- a/GI/Gio/Interfaces/SocketConnectable.hs-boot +++ b/GI/Gio/Interfaces/SocketConnectable.hs-boot @@ -11,3 +11,5 @@ 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 --- a/GI/Gio/Interfaces/TlsBackend.hs +++ b/GI/Gio/Interfaces/TlsBackend.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,36 @@ -- * Methods -- ** tlsBackendGetCertificateType + TlsBackendGetCertificateTypeMethodInfo , tlsBackendGetCertificateType , -- ** tlsBackendGetClientConnectionType + TlsBackendGetClientConnectionTypeMethodInfo, tlsBackendGetClientConnectionType , +-- ** tlsBackendGetDefault + tlsBackendGetDefault , + + -- ** tlsBackendGetDefaultDatabase + TlsBackendGetDefaultDatabaseMethodInfo , tlsBackendGetDefaultDatabase , -- ** tlsBackendGetFileDatabaseType + TlsBackendGetFileDatabaseTypeMethodInfo , tlsBackendGetFileDatabaseType , -- ** tlsBackendGetServerConnectionType + TlsBackendGetServerConnectionTypeMethodInfo, tlsBackendGetServerConnectionType , -- ** tlsBackendSupportsTls + TlsBackendSupportsTlsMethodInfo , tlsBackendSupportsTls , @@ -61,11 +72,50 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsBackendSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_tls_backend_get_type" c_g_tls_backend_get_type :: IO GType @@ -86,9 +136,8 @@ -- method TlsBackend::get_certificate_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -100,8 +149,8 @@ tlsBackendGetCertificateType :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result tlsBackendGetCertificateType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_backend_get_certificate_type _obj' @@ -109,11 +158,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -125,8 +177,8 @@ tlsBackendGetClientConnectionType :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result tlsBackendGetClientConnectionType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_backend_get_client_connection_type _obj' @@ -134,11 +186,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsDatabase" -- throws : False -- Skip return : False @@ -150,8 +205,8 @@ tlsBackendGetDefaultDatabase :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m TlsDatabase + a -- _obj + -> m TlsDatabase -- result tlsBackendGetDefaultDatabase _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_backend_get_default_database _obj' @@ -160,11 +215,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -176,8 +234,8 @@ tlsBackendGetFileDatabaseType :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result tlsBackendGetFileDatabaseType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_backend_get_file_database_type _obj' @@ -185,11 +243,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -201,8 +262,8 @@ tlsBackendGetServerConnectionType :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m GType + a -- _obj + -> m GType -- result tlsBackendGetServerConnectionType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_backend_get_server_connection_type _obj' @@ -210,11 +271,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -226,13 +290,38 @@ tlsBackendSupportsTls :: (MonadIO m, TlsBackendK a) => - a -> -- _obj - m Bool + 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 : 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 --- a/GI/Gio/Interfaces/TlsBackend.hs-boot +++ b/GI/Gio/Interfaces/TlsBackend.hs-boot @@ -11,3 +11,9 @@ 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 --- a/GI/Gio/Interfaces/TlsClientConnection.hs +++ b/GI/Gio/Interfaces/TlsClientConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,46 @@ -- * 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 , @@ -98,6 +111,75 @@ 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 TVoid) -- Flags: [PropertyReadable] @@ -111,7 +193,7 @@ type AttrSetTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = (~) () type AttrBaseTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = TlsClientConnectionK type AttrGetType TlsClientConnectionAcceptedCasPropertyInfo = ([Ptr ()]) - type AttrLabel TlsClientConnectionAcceptedCasPropertyInfo = "TlsClientConnection::accepted-cas" + type AttrLabel TlsClientConnectionAcceptedCasPropertyInfo = "accepted-cas" attrGet _ = getTlsClientConnectionAcceptedCas attrSet _ = undefined attrConstruct _ = undefined @@ -135,7 +217,7 @@ type AttrSetTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = SocketConnectableK type AttrBaseTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = TlsClientConnectionK type AttrGetType TlsClientConnectionServerIdentityPropertyInfo = SocketConnectable - type AttrLabel TlsClientConnectionServerIdentityPropertyInfo = "TlsClientConnection::server-identity" + type AttrLabel TlsClientConnectionServerIdentityPropertyInfo = "server-identity" attrGet _ = getTlsClientConnectionServerIdentity attrSet _ = setTlsClientConnectionServerIdentity attrConstruct _ = constructTlsClientConnectionServerIdentity @@ -159,7 +241,7 @@ type AttrSetTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = (~) Bool type AttrBaseTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = TlsClientConnectionK type AttrGetType TlsClientConnectionUseSsl3PropertyInfo = Bool - type AttrLabel TlsClientConnectionUseSsl3PropertyInfo = "TlsClientConnection::use-ssl3" + type AttrLabel TlsClientConnectionUseSsl3PropertyInfo = "use-ssl3" attrGet _ = getTlsClientConnectionUseSsl3 attrSet _ = setTlsClientConnectionUseSsl3 attrConstruct _ = constructTlsClientConnectionUseSsl3 @@ -183,16 +265,16 @@ type AttrSetTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = (~) [TlsCertificateFlags] type AttrBaseTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = TlsClientConnectionK type AttrGetType TlsClientConnectionValidationFlagsPropertyInfo = [TlsCertificateFlags] - type AttrLabel TlsClientConnectionValidationFlagsPropertyInfo = "TlsClientConnection::validation-flags" + type AttrLabel TlsClientConnectionValidationFlagsPropertyInfo = "validation-flags" attrGet _ = getTlsClientConnectionValidationFlags attrSet _ = setTlsClientConnectionValidationFlags attrConstruct _ = constructTlsClientConnectionValidationFlags type instance AttributeList TlsClientConnection = TlsClientConnectionAttributeList -type TlsClientConnectionAttributeList = ('[ '("accepted-cas", TlsClientConnectionAcceptedCasPropertyInfo), '("base-io-stream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("peer-certificate", TlsConnectionPeerCertificatePropertyInfo), '("peer-certificate-errors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshake-mode", TlsConnectionRehandshakeModePropertyInfo), '("require-close-notify", TlsConnectionRequireCloseNotifyPropertyInfo), '("server-identity", TlsClientConnectionServerIdentityPropertyInfo), '("use-ssl3", TlsClientConnectionUseSsl3PropertyInfo), '("use-system-certdb", TlsConnectionUseSystemCertdbPropertyInfo), '("validation-flags", TlsClientConnectionValidationFlagsPropertyInfo)] :: [(Symbol, *)]) +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, *)]) type instance SignalList TlsClientConnection = TlsClientConnectionSignalList -type TlsClientConnectionSignalList = ('[ '("accept-certificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -213,9 +295,8 @@ -- method TlsClientConnection::copy_session_state -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,9 +309,9 @@ tlsClientConnectionCopySessionState :: (MonadIO m, TlsClientConnectionK a, TlsClientConnectionK b) => - a -> -- _obj - b -> -- source - m () + a -- _obj + -> b -- source + -> m () -- result tlsClientConnectionCopySessionState _obj source = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let source' = unsafeManagedPtrCastPtr source @@ -239,11 +320,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList TByteArray -- throws : False -- Skip return : False @@ -255,8 +339,8 @@ tlsClientConnectionGetAcceptedCas :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - m [ByteString] + a -- _obj + -> m [ByteString] -- result tlsClientConnectionGetAcceptedCas _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_client_connection_get_accepted_cas _obj' @@ -268,11 +352,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnectable" -- throws : False -- Skip return : False @@ -284,8 +371,8 @@ tlsClientConnectionGetServerIdentity :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - m SocketConnectable + a -- _obj + -> m SocketConnectable -- result tlsClientConnectionGetServerIdentity _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_client_connection_get_server_identity _obj' @@ -294,11 +381,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -310,8 +400,8 @@ tlsClientConnectionGetUseSsl3 :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result tlsClientConnectionGetUseSsl3 _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_client_connection_get_use_ssl3 _obj' @@ -319,11 +409,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : False -- Skip return : False @@ -335,8 +428,8 @@ tlsClientConnectionGetValidationFlags :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - m [TlsCertificateFlags] + a -- _obj + -> m [TlsCertificateFlags] -- result tlsClientConnectionGetValidationFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_client_connection_get_validation_flags _obj' @@ -344,11 +437,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -361,9 +457,9 @@ tlsClientConnectionSetServerIdentity :: (MonadIO m, TlsClientConnectionK a, SocketConnectableK b) => - a -> -- _obj - b -> -- identity - m () + a -- _obj + -> b -- identity + -> m () -- result tlsClientConnectionSetServerIdentity _obj identity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let identity' = unsafeManagedPtrCastPtr identity @@ -372,11 +468,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_ssl3", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_ssl3", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -389,21 +488,24 @@ tlsClientConnectionSetUseSsl3 :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - Bool -> -- use_ssl3 - m () -tlsClientConnectionSetUseSsl3 _obj use_ssl3 = liftIO $ do + a -- _obj + -> Bool -- useSsl3 + -> m () -- result +tlsClientConnectionSetUseSsl3 _obj useSsl3 = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_ssl3' = (fromIntegral . fromEnum) use_ssl3 - g_tls_client_connection_set_use_ssl3 _obj' use_ssl3' + 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 {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -416,14 +518,56 @@ tlsClientConnectionSetValidationFlags :: (MonadIO m, TlsClientConnectionK a) => - a -> -- _obj - [TlsCertificateFlags] -> -- flags - m () + 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 : 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 --- a/GI/Gio/Interfaces/TlsClientConnection.hs-boot +++ b/GI/Gio/Interfaces/TlsClientConnection.hs-boot @@ -15,3 +15,11 @@ 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 --- a/GI/Gio/Interfaces/TlsFileDatabase.hs +++ b/GI/Gio/Interfaces/TlsFileDatabase.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,6 +16,13 @@ toTlsFileDatabase , + -- * Methods +-- ** tlsFileDatabaseNew + tlsFileDatabaseNew , + + + + -- * Properties -- ** Anchors TlsFileDatabaseAnchorsPropertyInfo , @@ -44,6 +52,52 @@ 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] @@ -63,7 +117,7 @@ type AttrSetTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = TlsFileDatabaseK type AttrGetType TlsFileDatabaseAnchorsPropertyInfo = T.Text - type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "TlsFileDatabase::anchors" + type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "anchors" attrGet _ = getTlsFileDatabaseAnchors attrSet _ = setTlsFileDatabaseAnchors attrConstruct _ = constructTlsFileDatabaseAnchors @@ -72,7 +126,7 @@ type TlsFileDatabaseAttributeList = ('[ '("anchors", TlsFileDatabaseAnchorsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TlsFileDatabase = TlsFileDatabaseSignalList -type TlsFileDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsFileDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_tls_file_database_get_type" c_g_tls_file_database_get_type :: IO GType @@ -90,5 +144,35 @@ 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 : 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/TlsServerConnection.hs b/GI/Gio/Interfaces/TlsServerConnection.hs --- a/GI/Gio/Interfaces/TlsServerConnection.hs +++ b/GI/Gio/Interfaces/TlsServerConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,6 +16,13 @@ toTlsServerConnection , + -- * Methods +-- ** tlsServerConnectionNew + tlsServerConnectionNew , + + + + -- * Properties -- ** AuthenticationMode TlsServerConnectionAuthenticationModePropertyInfo, @@ -44,6 +52,67 @@ 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] @@ -63,16 +132,16 @@ type AttrSetTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = (~) TlsAuthenticationMode type AttrBaseTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = TlsServerConnectionK type AttrGetType TlsServerConnectionAuthenticationModePropertyInfo = TlsAuthenticationMode - type AttrLabel TlsServerConnectionAuthenticationModePropertyInfo = "TlsServerConnection::authentication-mode" + type AttrLabel TlsServerConnectionAuthenticationModePropertyInfo = "authentication-mode" attrGet _ = getTlsServerConnectionAuthenticationMode attrSet _ = setTlsServerConnectionAuthenticationMode attrConstruct _ = constructTlsServerConnectionAuthenticationMode type instance AttributeList TlsServerConnection = TlsServerConnectionAttributeList -type TlsServerConnectionAttributeList = ('[ '("authentication-mode", TlsServerConnectionAuthenticationModePropertyInfo), '("base-io-stream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("peer-certificate", TlsConnectionPeerCertificatePropertyInfo), '("peer-certificate-errors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshake-mode", TlsConnectionRehandshakeModePropertyInfo), '("require-close-notify", TlsConnectionRequireCloseNotifyPropertyInfo), '("use-system-certdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)]) +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, *)]) type instance SignalList TlsServerConnection = TlsServerConnectionSignalList -type TlsServerConnectionSignalList = ('[ '("accept-certificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 @@ -90,5 +159,43 @@ 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 : 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/Volume.hs b/GI/Gio/Interfaces/Volume.hs --- a/GI/Gio/Interfaces/Volume.hs +++ b/GI/Gio/Interfaces/Volume.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,78 +18,97 @@ -- * 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 , @@ -140,6 +160,58 @@ 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 () @@ -230,7 +302,7 @@ connectSignal _ = connectVolumeRemoved type instance SignalList Volume = VolumeSignalList -type VolumeSignalList = ('[ '("changed", VolumeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removed", VolumeRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VolumeSignalList = ('[ '("changed", VolumeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removed", VolumeRemovedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "g_volume_get_type" c_g_volume_get_type :: IO GType @@ -251,9 +323,8 @@ -- method Volume::can_eject -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -265,8 +336,8 @@ volumeCanEject :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result volumeCanEject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_can_eject _obj' @@ -274,11 +345,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -290,8 +364,8 @@ volumeCanMount :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result volumeCanMount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_can_mount _obj' @@ -299,11 +373,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -319,11 +396,11 @@ {-# 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 () + 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 @@ -339,17 +416,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_volume_eject _obj' flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -363,9 +443,9 @@ {-# 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 () + a -- _obj + -> b -- result_ + -> m () -- result volumeEjectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -378,11 +458,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -399,20 +482,20 @@ volumeEjectWithOperation :: (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountUnmountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -volumeEjectWithOperation _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -425,18 +508,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_volume_eject_with_operation _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_volume_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -450,9 +536,9 @@ volumeEjectWithOperationFinish :: (MonadIO m, VolumeK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result volumeEjectWithOperationFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -465,11 +551,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -481,8 +570,8 @@ volumeEnumerateIdentifiers :: (MonadIO m, VolumeK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result volumeEnumerateIdentifiers _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_enumerate_identifiers _obj' @@ -493,11 +582,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -509,8 +601,8 @@ volumeGetActivationRoot :: (MonadIO m, VolumeK a) => - a -> -- _obj - m File + a -- _obj + -> m File -- result volumeGetActivationRoot _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_activation_root _obj' @@ -519,11 +611,14 @@ touchManagedPtr _obj return result' +data VolumeGetActivationRootMethodInfo +instance (signature ~ (m File), MonadIO m, VolumeK a) => MethodInfo VolumeGetActivationRootMethodInfo a signature where + overloadedMethod _ = volumeGetActivationRoot + -- method Volume::get_drive -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Drive" -- throws : False -- Skip return : False @@ -535,8 +630,8 @@ volumeGetDrive :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Drive + a -- _obj + -> m Drive -- result volumeGetDrive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_drive _obj' @@ -545,11 +640,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -561,8 +659,8 @@ volumeGetIcon :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result volumeGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_icon _obj' @@ -571,11 +669,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -588,9 +689,9 @@ volumeGetIdentifier :: (MonadIO m, VolumeK a) => - a -> -- _obj - T.Text -> -- kind - m T.Text + a -- _obj + -> T.Text -- kind + -> m T.Text -- result volumeGetIdentifier _obj kind = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj kind' <- textToCString kind @@ -602,11 +703,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Mount" -- throws : False -- Skip return : False @@ -618,8 +722,8 @@ volumeGetMount :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Mount + a -- _obj + -> m Mount -- result volumeGetMount _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_mount _obj' @@ -628,11 +732,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -644,8 +751,8 @@ volumeGetName :: (MonadIO m, VolumeK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result volumeGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_name _obj' @@ -655,11 +762,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -671,8 +781,8 @@ volumeGetSortKey :: (MonadIO m, VolumeK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result volumeGetSortKey _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_sort_key _obj' @@ -681,11 +791,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -697,8 +810,8 @@ volumeGetSymbolicIcon :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result volumeGetSymbolicIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_symbolic_icon _obj' @@ -707,11 +820,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -723,8 +839,8 @@ volumeGetUuid :: (MonadIO m, VolumeK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result volumeGetUuid _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_get_uuid _obj' @@ -734,11 +850,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -755,20 +874,20 @@ volumeMount :: (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => - a -> -- _obj - [MountMountFlags] -> -- flags - Maybe (b) -> -- mount_operation - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -volumeMount _obj flags mount_operation cancellable callback = liftIO $ do + 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 - maybeMount_operation <- case mount_operation of + maybeMountOperation <- case mountOperation of Nothing -> return nullPtr - Just jMount_operation -> do - let jMount_operation' = unsafeManagedPtrCastPtr jMount_operation - return jMount_operation' + Just jMountOperation -> do + let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation + return jMountOperation' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -781,18 +900,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_volume_mount _obj' flags' maybeMount_operation maybeCancellable maybeCallback user_data + let userData = nullPtr + g_volume_mount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust mount_operation touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -806,9 +928,9 @@ volumeMountFinish :: (MonadIO m, VolumeK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result volumeMountFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -821,11 +943,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -837,13 +962,17 @@ volumeShouldAutomount :: (MonadIO m, VolumeK a) => - a -> -- _obj - m Bool + 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 --- a/GI/Gio/Interfaces/Volume.hs-boot +++ b/GI/Gio/Interfaces/Volume.hs-boot @@ -13,3 +13,22 @@ 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 --- a/GI/Gio/Objects.hs +++ b/GI/Gio/Objects.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Objects/AppInfoMonitor.hs b/GI/Gio/Objects/AppInfoMonitor.hs --- a/GI/Gio/Objects/AppInfoMonitor.hs +++ b/GI/Gio/Objects/AppInfoMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -71,6 +72,39 @@ 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 () @@ -118,13 +152,12 @@ connectSignal _ = connectAppInfoMonitorChanged type instance SignalList AppInfoMonitor = AppInfoMonitorSignalList -type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method AppInfoMonitor::get -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "AppInfoMonitor" -- throws : False -- Skip return : False @@ -135,7 +168,7 @@ appInfoMonitorGet :: (MonadIO m) => - m AppInfoMonitor + m AppInfoMonitor -- result appInfoMonitorGet = liftIO $ do result <- g_app_info_monitor_get checkUnexpectedReturnNULL "g_app_info_monitor_get" result diff --git a/GI/Gio/Objects/AppLaunchContext.hs b/GI/Gio/Objects/AppLaunchContext.hs --- a/GI/Gio/Objects/AppLaunchContext.hs +++ b/GI/Gio/Objects/AppLaunchContext.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** appLaunchContextGetDisplay + AppLaunchContextGetDisplayMethodInfo , appLaunchContextGetDisplay , -- ** appLaunchContextGetEnvironment + AppLaunchContextGetEnvironmentMethodInfo, appLaunchContextGetEnvironment , -- ** appLaunchContextGetStartupNotifyId + AppLaunchContextGetStartupNotifyIdMethodInfo, appLaunchContextGetStartupNotifyId , -- ** appLaunchContextLaunchFailed + AppLaunchContextLaunchFailedMethodInfo , appLaunchContextLaunchFailed , @@ -37,10 +42,12 @@ -- ** appLaunchContextSetenv + AppLaunchContextSetenvMethodInfo , appLaunchContextSetenv , -- ** appLaunchContextUnsetenv + AppLaunchContextUnsetenvMethodInfo , appLaunchContextUnsetenv , @@ -107,6 +114,45 @@ 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 -> @@ -134,9 +180,9 @@ CString -> Ptr () -> IO () -appLaunchContextLaunchFailedCallbackWrapper _cb _ startup_notify_id _ = do - startup_notify_id' <- cstringToText startup_notify_id - _cb startup_notify_id' +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 @@ -179,10 +225,10 @@ Ptr GVariant -> Ptr () -> IO () -appLaunchContextLaunchedCallbackWrapper _cb _ info platform_data _ = do +appLaunchContextLaunchedCallbackWrapper _cb _ info platformData _ = do info' <- (newObject AppInfo) info - platform_data' <- newGVariantFromPtr platform_data - _cb info' platform_data' + platformData' <- newGVariantFromPtr platformData + _cb info' platformData' onAppLaunchContextLaunched :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId onAppLaunchContextLaunched obj cb = liftIO $ connectAppLaunchContextLaunched obj cb SignalConnectBefore @@ -209,13 +255,12 @@ connectSignal _ = connectAppLaunchContextLaunched type instance SignalList AppLaunchContext = AppLaunchContextSignalList -type AppLaunchContextSignalList = ('[ '("launch-failed", AppLaunchContextLaunchFailedSignalInfo), '("launched", AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type AppLaunchContextSignalList = ('[ '("launchFailed", AppLaunchContextLaunchFailedSignalInfo), '("launched", AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method AppLaunchContext::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "AppLaunchContext" -- throws : False -- Skip return : False @@ -226,7 +271,7 @@ appLaunchContextNew :: (MonadIO m) => - m AppLaunchContext + m AppLaunchContext -- result appLaunchContextNew = liftIO $ do result <- g_app_launch_context_new checkUnexpectedReturnNULL "g_app_launch_context_new" result @@ -235,9 +280,8 @@ -- method AppLaunchContext::get_display -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -251,10 +295,10 @@ appLaunchContextGetDisplay :: (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => - a -> -- _obj - b -> -- info - [c] -> -- files - m T.Text + a -- _obj + -> b -- info + -> [c] -- files + -> m T.Text -- result appLaunchContextGetDisplay _obj info files = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let info' = unsafeManagedPtrCastPtr info @@ -270,11 +314,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -286,8 +333,8 @@ appLaunchContextGetEnvironment :: (MonadIO m, AppLaunchContextK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result appLaunchContextGetEnvironment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_app_launch_context_get_environment _obj' @@ -298,11 +345,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -316,10 +366,10 @@ appLaunchContextGetStartupNotifyId :: (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => - a -> -- _obj - b -> -- info - [c] -> -- files - m T.Text + a -- _obj + -> b -- info + -> [c] -- files + -> m T.Text -- result appLaunchContextGetStartupNotifyId _obj info files = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let info' = unsafeManagedPtrCastPtr info @@ -335,11 +385,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_notify_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_notify_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -352,22 +405,25 @@ appLaunchContextLaunchFailed :: (MonadIO m, AppLaunchContextK a) => - a -> -- _obj - T.Text -> -- startup_notify_id - m () -appLaunchContextLaunchFailed _obj startup_notify_id = liftIO $ do + a -- _obj + -> T.Text -- startupNotifyId + -> m () -- result +appLaunchContextLaunchFailed _obj startupNotifyId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - startup_notify_id' <- textToCString startup_notify_id - g_app_launch_context_launch_failed _obj' startup_notify_id' + startupNotifyId' <- textToCString startupNotifyId + g_app_launch_context_launch_failed _obj' startupNotifyId' touchManagedPtr _obj - freeMem startup_notify_id' + 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 {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -381,10 +437,10 @@ appLaunchContextSetenv :: (MonadIO m, AppLaunchContextK a) => - a -> -- _obj - T.Text -> -- variable - T.Text -> -- value - m () + a -- _obj + -> T.Text -- variable + -> T.Text -- value + -> m () -- result appLaunchContextSetenv _obj variable value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj variable' <- textToCString variable @@ -395,11 +451,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -412,9 +471,9 @@ appLaunchContextUnsetenv :: (MonadIO m, AppLaunchContextK a) => - a -> -- _obj - T.Text -> -- variable - m () + a -- _obj + -> T.Text -- variable + -> m () -- result appLaunchContextUnsetenv _obj variable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj variable' <- textToCString variable @@ -422,5 +481,9 @@ 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 --- a/GI/Gio/Objects/AppLaunchContext.hs-boot +++ b/GI/Gio/Objects/AppLaunchContext.hs-boot @@ -13,3 +13,9 @@ 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 --- a/GI/Gio/Objects/Application.hs +++ b/GI/Gio/Objects/Application.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * 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 , @@ -53,30 +62,37 @@ -- ** applicationGetFlags + ApplicationGetFlagsMethodInfo , applicationGetFlags , -- ** applicationGetInactivityTimeout + ApplicationGetInactivityTimeoutMethodInfo, applicationGetInactivityTimeout , -- ** applicationGetIsBusy + ApplicationGetIsBusyMethodInfo , applicationGetIsBusy , -- ** applicationGetIsRegistered + ApplicationGetIsRegisteredMethodInfo , applicationGetIsRegistered , -- ** applicationGetIsRemote + ApplicationGetIsRemoteMethodInfo , applicationGetIsRemote , -- ** applicationGetResourceBasePath + ApplicationGetResourceBasePathMethodInfo, applicationGetResourceBasePath , -- ** applicationHold + ApplicationHoldMethodInfo , applicationHold , @@ -85,6 +101,7 @@ -- ** applicationMarkBusy + ApplicationMarkBusyMethodInfo , applicationMarkBusy , @@ -93,62 +110,77 @@ -- ** 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 , @@ -316,6 +348,88 @@ 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 () @@ -381,9 +495,9 @@ Ptr ApplicationCommandLine -> Ptr () -> IO Int32 -applicationCommandLineCallbackWrapper _cb _ command_line _ = do - command_line' <- (newObject ApplicationCommandLine) command_line - result <- _cb command_line' +applicationCommandLineCallbackWrapper _cb _ commandLine _ = do + commandLine' <- (newObject ApplicationCommandLine) commandLine + result <- _cb commandLine' return result onApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId @@ -472,8 +586,8 @@ CString -> Ptr () -> IO () -applicationOpenCallbackWrapper _cb _ files n_files hint _ = do - files' <- (unpackPtrArrayWithLength n_files) files +applicationOpenCallbackWrapper _cb _ files nFiles hint _ = do + files' <- (unpackPtrArrayWithLength nFiles) files files'' <- mapM (newObject File) files' hint' <- cstringToText hint _cb files'' hint' @@ -581,7 +695,7 @@ type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = ActionGroupK type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = ApplicationK type AttrGetType ApplicationActionGroupPropertyInfo = () - type AttrLabel ApplicationActionGroupPropertyInfo = "Application::action-group" + type AttrLabel ApplicationActionGroupPropertyInfo = "action-group" attrGet _ = undefined attrSet _ = setApplicationActionGroup attrConstruct _ = constructApplicationActionGroup @@ -605,7 +719,7 @@ type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = ApplicationK type AttrGetType ApplicationApplicationIdPropertyInfo = T.Text - type AttrLabel ApplicationApplicationIdPropertyInfo = "Application::application-id" + type AttrLabel ApplicationApplicationIdPropertyInfo = "application-id" attrGet _ = getApplicationApplicationId attrSet _ = setApplicationApplicationId attrConstruct _ = constructApplicationApplicationId @@ -629,7 +743,7 @@ type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [ApplicationFlags] type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = ApplicationK type AttrGetType ApplicationFlagsPropertyInfo = [ApplicationFlags] - type AttrLabel ApplicationFlagsPropertyInfo = "Application::flags" + type AttrLabel ApplicationFlagsPropertyInfo = "flags" attrGet _ = getApplicationFlags attrSet _ = setApplicationFlags attrConstruct _ = constructApplicationFlags @@ -653,7 +767,7 @@ type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = ApplicationK type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32 - type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "Application::inactivity-timeout" + type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "inactivity-timeout" attrGet _ = getApplicationInactivityTimeout attrSet _ = setApplicationInactivityTimeout attrConstruct _ = constructApplicationInactivityTimeout @@ -671,7 +785,7 @@ type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = ApplicationK type AttrGetType ApplicationIsBusyPropertyInfo = Bool - type AttrLabel ApplicationIsBusyPropertyInfo = "Application::is-busy" + type AttrLabel ApplicationIsBusyPropertyInfo = "is-busy" attrGet _ = getApplicationIsBusy attrSet _ = undefined attrConstruct _ = undefined @@ -689,7 +803,7 @@ type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = ApplicationK type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool - type AttrLabel ApplicationIsRegisteredPropertyInfo = "Application::is-registered" + type AttrLabel ApplicationIsRegisteredPropertyInfo = "is-registered" attrGet _ = getApplicationIsRegistered attrSet _ = undefined attrConstruct _ = undefined @@ -707,7 +821,7 @@ type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = ApplicationK type AttrGetType ApplicationIsRemotePropertyInfo = Bool - type AttrLabel ApplicationIsRemotePropertyInfo = "Application::is-remote" + type AttrLabel ApplicationIsRemotePropertyInfo = "is-remote" attrGet _ = getApplicationIsRemote attrSet _ = undefined attrConstruct _ = undefined @@ -731,13 +845,13 @@ type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = ApplicationK type AttrGetType ApplicationResourceBasePathPropertyInfo = T.Text - type AttrLabel ApplicationResourceBasePathPropertyInfo = "Application::resource-base-path" + type AttrLabel ApplicationResourceBasePathPropertyInfo = "resource-base-path" attrGet _ = getApplicationResourceBasePath attrSet _ = setApplicationResourceBasePath attrConstruct _ = constructApplicationResourceBasePath type instance AttributeList Application = ApplicationAttributeList -type ApplicationAttributeList = ('[ '("action-group", ApplicationActionGroupPropertyInfo), '("application-id", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivity-timeout", ApplicationInactivityTimeoutPropertyInfo), '("is-busy", ApplicationIsBusyPropertyInfo), '("is-registered", ApplicationIsRegisteredPropertyInfo), '("is-remote", ApplicationIsRemotePropertyInfo), '("resource-base-path", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) +type ApplicationAttributeList = ('[ '("actionGroup", ApplicationActionGroupPropertyInfo), '("applicationId", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivityTimeout", ApplicationInactivityTimeoutPropertyInfo), '("isBusy", ApplicationIsBusyPropertyInfo), '("isRegistered", ApplicationIsRegisteredPropertyInfo), '("isRemote", ApplicationIsRemotePropertyInfo), '("resourceBasePath", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) data ApplicationActivateSignalInfo instance SignalInfo ApplicationActivateSignalInfo where @@ -770,13 +884,12 @@ connectSignal _ = connectApplicationStartup type instance SignalList Application = ApplicationSignalList -type ApplicationSignalList = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("command-line", ApplicationCommandLineSignalInfo), '("handle-local-options", ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Application" -- throws : False -- Skip return : False @@ -789,27 +902,26 @@ applicationNew :: (MonadIO m) => - Maybe (T.Text) -> -- application_id - [ApplicationFlags] -> -- flags - m Application -applicationNew application_id flags = liftIO $ do - maybeApplication_id <- case application_id of + Maybe (T.Text) -- applicationId + -> [ApplicationFlags] -- flags + -> m Application -- result +applicationNew applicationId flags = liftIO $ do + maybeApplicationId <- case applicationId of Nothing -> return nullPtr - Just jApplication_id -> do - jApplication_id' <- textToCString jApplication_id - return jApplication_id' + Just jApplicationId -> do + jApplicationId' <- textToCString jApplicationId + return jApplicationId' let flags' = gflagsToWord flags - result <- g_application_new maybeApplication_id flags' + result <- g_application_new maybeApplicationId flags' checkUnexpectedReturnNULL "g_application_new" result result' <- (wrapObject Application) result - freeMem maybeApplication_id + freeMem maybeApplicationId return result' -- method Application::activate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -821,19 +933,22 @@ applicationActivate :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "long_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_name", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "OptionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg", argType = TInterface "GLib" "OptionArg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "long_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_name", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "OptionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg", argType = TInterface "GLib" "OptionArg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -851,37 +966,40 @@ applicationAddMainOption :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- long_name - Int8 -> -- short_name - [GLib.OptionFlags] -> -- flags - GLib.OptionArg -> -- arg - T.Text -> -- description - Maybe (T.Text) -> -- arg_description - m () -applicationAddMainOption _obj long_name short_name flags arg description arg_description = liftIO $ do + 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 - long_name' <- textToCString long_name + longName' <- textToCString longName let flags' = gflagsToWord flags let arg' = (fromIntegral . fromEnum) arg description' <- textToCString description - maybeArg_description <- case arg_description of + maybeArgDescription <- case argDescription of Nothing -> return nullPtr - Just jArg_description -> do - jArg_description' <- textToCString jArg_description - return jArg_description' - g_application_add_main_option _obj' long_name' short_name flags' arg' description' maybeArg_description + Just jArgDescription -> do + jArgDescription' <- textToCString jArgDescription + return jArgDescription' + g_application_add_main_option _obj' longName' shortName flags' arg' description' maybeArgDescription touchManagedPtr _obj - freeMem long_name' + freeMem longName' freeMem description' - freeMem maybeArg_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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -894,9 +1012,9 @@ applicationAddMainOptionEntries :: (MonadIO m, ApplicationK a) => - a -> -- _obj - [GLib.OptionEntry] -> -- entries - m () + a -- _obj + -> [GLib.OptionEntry] -- entries + -> m () -- result applicationAddMainOptionEntries _obj entries = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let entries' = map unsafeManagedPtrGetPtr entries @@ -907,11 +1025,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -924,9 +1045,9 @@ applicationAddOptionGroup :: (MonadIO m, ApplicationK a) => - a -> -- _obj - GLib.OptionGroup -> -- group - m () + a -- _obj + -> GLib.OptionGroup -- group + -> m () -- result applicationAddOptionGroup _obj group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let group' = unsafeManagedPtrGetPtr group @@ -935,11 +1056,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -953,10 +1077,10 @@ applicationBindBusyProperty :: (MonadIO m, ApplicationK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- object - T.Text -> -- property - m () + a -- _obj + -> b -- object + -> T.Text -- property + -> m () -- result applicationBindBusyProperty _obj object property = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let object' = unsafeManagedPtrCastPtr object @@ -967,11 +1091,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -983,8 +1110,8 @@ applicationGetApplicationId :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result applicationGetApplicationId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_application_id _obj' @@ -993,11 +1120,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -1009,8 +1139,8 @@ applicationGetDbusConnection :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result applicationGetDbusConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_dbus_connection _obj' @@ -1019,11 +1149,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1035,8 +1168,8 @@ applicationGetDbusObjectPath :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result applicationGetDbusObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_dbus_object_path _obj' @@ -1045,11 +1178,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ApplicationFlags" -- throws : False -- Skip return : False @@ -1061,8 +1197,8 @@ applicationGetFlags :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m [ApplicationFlags] + a -- _obj + -> m [ApplicationFlags] -- result applicationGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_flags _obj' @@ -1070,11 +1206,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1086,19 +1225,22 @@ applicationGetInactivityTimeout :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1110,8 +1252,8 @@ applicationGetIsBusy :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationGetIsBusy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_is_busy _obj' @@ -1119,11 +1261,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1135,8 +1280,8 @@ applicationGetIsRegistered :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationGetIsRegistered _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_is_registered _obj' @@ -1144,11 +1289,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1160,8 +1308,8 @@ applicationGetIsRemote :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationGetIsRemote _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_is_remote _obj' @@ -1169,11 +1317,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1185,8 +1336,8 @@ applicationGetResourceBasePath :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result applicationGetResourceBasePath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_get_resource_base_path _obj' @@ -1195,11 +1346,14 @@ touchManagedPtr _obj return result' +data ApplicationGetResourceBasePathMethodInfo +instance (signature ~ (m T.Text), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetResourceBasePathMethodInfo a signature where + overloadedMethod _ = applicationGetResourceBasePath + -- method Application::hold -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1211,19 +1365,22 @@ applicationHold :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1235,19 +1392,22 @@ applicationMarkBusy :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray False (-1) 2 (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_files", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_files", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray False (-1) 2 (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1262,28 +1422,31 @@ applicationOpen :: (MonadIO m, ApplicationK a) => - a -> -- _obj - [File] -> -- files - T.Text -> -- hint - m () + a -- _obj + -> [File] -- files + -> T.Text -- hint + -> m () -- result applicationOpen _obj files hint = liftIO $ do - let n_files = fromIntegral $ length files + 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'' n_files 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1295,19 +1458,22 @@ applicationQuit :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1321,9 +1487,9 @@ applicationRegister :: (MonadIO m, ApplicationK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result applicationRegister _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -1340,11 +1506,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1356,19 +1525,22 @@ applicationRelease :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1382,9 +1554,9 @@ applicationRun :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Maybe ([T.Text]) -> -- argv - m Int32 + a -- _obj + -> Maybe ([T.Text]) -- argv + -> m Int32 -- result applicationRun _obj argv = liftIO $ do let argc = case argv of Nothing -> 0 @@ -1401,11 +1573,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notification", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notification", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1419,10 +1594,10 @@ applicationSendNotification :: (MonadIO m, ApplicationK a, NotificationK b) => - a -> -- _obj - Maybe (T.Text) -> -- id - b -> -- notification - m () + a -- _obj + -> Maybe (T.Text) -- id + -> b -- notification + -> m () -- result applicationSendNotification _obj id notification = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeId <- case id of @@ -1437,11 +1612,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1454,26 +1632,29 @@ {-# 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) -> -- action_group - m () -applicationSetActionGroup _obj action_group = liftIO $ do + a -- _obj + -> Maybe (b) -- actionGroup + -> m () -- result +applicationSetActionGroup _obj actionGroup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeAction_group <- case action_group of + maybeActionGroup <- case actionGroup of Nothing -> return nullPtr - Just jAction_group -> do - let jAction_group' = unsafeManagedPtrCastPtr jAction_group - return jAction_group' - g_application_set_action_group _obj' maybeAction_group + Just jActionGroup -> do + let jActionGroup' = unsafeManagedPtrCastPtr jActionGroup + return jActionGroup' + g_application_set_action_group _obj' maybeActionGroup touchManagedPtr _obj - whenJust action_group touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1486,26 +1667,29 @@ applicationSetApplicationId :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Maybe (T.Text) -> -- application_id - m () -applicationSetApplicationId _obj application_id = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- applicationId + -> m () -- result +applicationSetApplicationId _obj applicationId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplication_id <- case application_id of + maybeApplicationId <- case applicationId of Nothing -> return nullPtr - Just jApplication_id -> do - jApplication_id' <- textToCString jApplication_id - return jApplication_id' - g_application_set_application_id _obj' maybeApplication_id + Just jApplicationId -> do + jApplicationId' <- textToCString jApplicationId + return jApplicationId' + g_application_set_application_id _obj' maybeApplicationId touchManagedPtr _obj - freeMem maybeApplication_id + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1517,19 +1701,22 @@ applicationSetDefault :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1542,9 +1729,9 @@ applicationSetFlags :: (MonadIO m, ApplicationK a) => - a -> -- _obj - [ApplicationFlags] -> -- flags - m () + a -- _obj + -> [ApplicationFlags] -- flags + -> m () -- result applicationSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -1552,11 +1739,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inactivity_timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inactivity_timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1569,20 +1759,23 @@ applicationSetInactivityTimeout :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Word32 -> -- inactivity_timeout - m () -applicationSetInactivityTimeout _obj inactivity_timeout = liftIO $ do + a -- _obj + -> Word32 -- inactivityTimeout + -> m () -- result +applicationSetInactivityTimeout _obj inactivityTimeout = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_application_set_inactivity_timeout _obj' inactivity_timeout + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1595,26 +1788,29 @@ applicationSetResourceBasePath :: (MonadIO m, ApplicationK a) => - a -> -- _obj - Maybe (T.Text) -> -- resource_path - m () -applicationSetResourceBasePath _obj resource_path = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- resourcePath + -> m () -- result +applicationSetResourceBasePath _obj resourcePath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeResource_path <- case resource_path of + maybeResourcePath <- case resourcePath of Nothing -> return nullPtr - Just jResource_path -> do - jResource_path' <- textToCString jResource_path - return jResource_path' - g_application_set_resource_base_path _obj' maybeResource_path + Just jResourcePath -> do + jResourcePath' <- textToCString jResourcePath + return jResourcePath' + g_application_set_resource_base_path _obj' maybeResourcePath touchManagedPtr _obj - freeMem maybeResource_path + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1628,10 +1824,10 @@ applicationUnbindBusyProperty :: (MonadIO m, ApplicationK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- object - T.Text -> -- property - m () + a -- _obj + -> b -- object + -> T.Text -- property + -> m () -- result applicationUnbindBusyProperty _obj object property = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let object' = unsafeManagedPtrCastPtr object @@ -1642,11 +1838,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1658,19 +1857,22 @@ applicationUnmarkBusy :: (MonadIO m, ApplicationK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1683,9 +1885,9 @@ applicationWithdrawNotification :: (MonadIO m, ApplicationK a) => - a -> -- _obj - T.Text -> -- id - m () + a -- _obj + -> T.Text -- id + -> m () -- result applicationWithdrawNotification _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj id' <- textToCString id @@ -1694,11 +1896,14 @@ 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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Application" -- throws : False -- Skip return : False @@ -1709,7 +1914,7 @@ applicationGetDefault :: (MonadIO m) => - m Application + m Application -- result applicationGetDefault = liftIO $ do result <- g_application_get_default checkUnexpectedReturnNULL "g_application_get_default" result @@ -1718,9 +1923,8 @@ -- method Application::id_is_valid -- method type : MemberFunction --- Args : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1732,13 +1936,13 @@ applicationIdIsValid :: (MonadIO m) => - T.Text -> -- application_id - m Bool -applicationIdIsValid application_id = liftIO $ do - application_id' <- textToCString application_id - result <- g_application_id_is_valid application_id' + 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 application_id' + freeMem applicationId' return result' diff --git a/GI/Gio/Objects/Application.hs-boot b/GI/Gio/Objects/Application.hs-boot --- a/GI/Gio/Objects/Application.hs-boot +++ b/GI/Gio/Objects/Application.hs-boot @@ -25,3 +25,34 @@ 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 --- a/GI/Gio/Objects/ApplicationCommandLine.hs +++ b/GI/Gio/Objects/ApplicationCommandLine.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * 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 , @@ -120,6 +132,50 @@ 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] @@ -133,7 +189,7 @@ type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLineK type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = () - type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "ApplicationCommandLine::arguments" + type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructApplicationCommandLineArguments @@ -151,7 +207,7 @@ type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLineK type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool - type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "ApplicationCommandLine::is-remote" + type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote" attrGet _ = getApplicationCommandLineIsRemote attrSet _ = undefined attrConstruct _ = undefined @@ -169,7 +225,7 @@ type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLineK type AttrGetType ApplicationCommandLineOptionsPropertyInfo = () - type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "ApplicationCommandLine::options" + type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructApplicationCommandLineOptions @@ -187,22 +243,21 @@ type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLineK type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = () - type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "ApplicationCommandLine::platform-data" + type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructApplicationCommandLinePlatformData type instance AttributeList ApplicationCommandLine = ApplicationCommandLineAttributeList -type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("is-remote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platform-data", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)]) +type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("isRemote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platformData", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ApplicationCommandLine = ApplicationCommandLineSignalList -type ApplicationCommandLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ApplicationCommandLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ApplicationCommandLine::create_file_for_arg -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -215,9 +270,9 @@ applicationCommandLineCreateFileForArg :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - T.Text -> -- arg - m File + a -- _obj + -> T.Text -- arg + -> m File -- result applicationCommandLineCreateFileForArg _obj arg = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj arg' <- textToCString arg @@ -228,11 +283,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -245,8 +303,8 @@ applicationCommandLineGetArguments :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result applicationCommandLineGetArguments _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj argc <- allocMem :: IO (Ptr Int32) @@ -260,11 +318,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -276,8 +337,8 @@ applicationCommandLineGetCwd :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result applicationCommandLineGetCwd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_cwd _obj' @@ -286,11 +347,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -302,8 +366,8 @@ applicationCommandLineGetEnviron :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result applicationCommandLineGetEnviron _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_environ _obj' @@ -312,11 +376,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -328,19 +395,22 @@ applicationCommandLineGetExitStatus :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -352,8 +422,8 @@ applicationCommandLineGetIsRemote :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result applicationCommandLineGetIsRemote _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_is_remote _obj' @@ -361,11 +431,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantDict" -- throws : False -- Skip return : False @@ -377,8 +450,8 @@ applicationCommandLineGetOptionsDict :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m GLib.VariantDict + a -- _obj + -> m GLib.VariantDict -- result applicationCommandLineGetOptionsDict _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_options_dict _obj' @@ -387,11 +460,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -403,8 +479,8 @@ applicationCommandLineGetPlatformData :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result applicationCommandLineGetPlatformData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_platform_data _obj' @@ -413,11 +489,14 @@ touchManagedPtr _obj return result' +data ApplicationCommandLineGetPlatformDataMethodInfo +instance (signature ~ (m GVariant), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a signature where + overloadedMethod _ = applicationCommandLineGetPlatformData + -- method ApplicationCommandLine::get_stdin -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : False -- Skip return : False @@ -429,8 +508,8 @@ applicationCommandLineGetStdin :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - m InputStream + a -- _obj + -> m InputStream -- result applicationCommandLineGetStdin _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_application_command_line_get_stdin _obj' @@ -439,11 +518,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -456,9 +538,9 @@ applicationCommandLineGetenv :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - T.Text -> -- name - m T.Text + a -- _obj + -> T.Text -- name + -> m T.Text -- result applicationCommandLineGetenv _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -469,11 +551,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -486,13 +571,17 @@ applicationCommandLineSetExitStatus :: (MonadIO m, ApplicationCommandLineK a) => - a -> -- _obj - Int32 -> -- exit_status - m () -applicationCommandLineSetExitStatus _obj exit_status = liftIO $ do + a -- _obj + -> Int32 -- exitStatus + -> m () -- result +applicationCommandLineSetExitStatus _obj exitStatus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_application_command_line_set_exit_status _obj' exit_status + 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 --- a/GI/Gio/Objects/ApplicationCommandLine.hs-boot +++ b/GI/Gio/Objects/ApplicationCommandLine.hs-boot @@ -15,3 +15,14 @@ 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 --- a/GI/Gio/Objects/BufferedInputStream.hs +++ b/GI/Gio/Objects/BufferedInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** bufferedInputStreamFill + BufferedInputStreamFillMethodInfo , bufferedInputStreamFill , -- ** bufferedInputStreamFillAsync + BufferedInputStreamFillAsyncMethodInfo , bufferedInputStreamFillAsync , -- ** bufferedInputStreamFillFinish + BufferedInputStreamFillFinishMethodInfo , bufferedInputStreamFillFinish , -- ** bufferedInputStreamGetAvailable + BufferedInputStreamGetAvailableMethodInfo, bufferedInputStreamGetAvailable , -- ** bufferedInputStreamGetBufferSize + BufferedInputStreamGetBufferSizeMethodInfo, bufferedInputStreamGetBufferSize , @@ -45,18 +51,22 @@ -- ** bufferedInputStreamPeek + BufferedInputStreamPeekMethodInfo , bufferedInputStreamPeek , -- ** bufferedInputStreamPeekBuffer + BufferedInputStreamPeekBufferMethodInfo , bufferedInputStreamPeekBuffer , -- ** bufferedInputStreamReadByte + BufferedInputStreamReadByteMethodInfo , bufferedInputStreamReadByte , -- ** bufferedInputStreamSetBufferSize + BufferedInputStreamSetBufferSizeMethodInfo, bufferedInputStreamSetBufferSize , @@ -106,6 +116,75 @@ 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 TUInt32 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] @@ -125,22 +204,21 @@ type AttrSetTypeConstraint BufferedInputStreamBufferSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint BufferedInputStreamBufferSizePropertyInfo = BufferedInputStreamK type AttrGetType BufferedInputStreamBufferSizePropertyInfo = Word32 - type AttrLabel BufferedInputStreamBufferSizePropertyInfo = "BufferedInputStream::buffer-size" + type AttrLabel BufferedInputStreamBufferSizePropertyInfo = "buffer-size" attrGet _ = getBufferedInputStreamBufferSize attrSet _ = setBufferedInputStreamBufferSize attrConstruct _ = constructBufferedInputStreamBufferSize type instance AttributeList BufferedInputStream = BufferedInputStreamAttributeList -type BufferedInputStreamAttributeList = ('[ '("base-stream", FilterInputStreamBaseStreamPropertyInfo), '("buffer-size", BufferedInputStreamBufferSizePropertyInfo), '("close-base-stream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) +type BufferedInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList BufferedInputStream = BufferedInputStreamSignalList -type BufferedInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BufferedInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method BufferedInputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "BufferedInputStream" -- throws : False -- Skip return : False @@ -152,21 +230,20 @@ bufferedInputStreamNew :: (MonadIO m, InputStreamK a) => - a -> -- base_stream - m BufferedInputStream -bufferedInputStreamNew base_stream = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_buffered_input_stream_new base_stream' + 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 base_stream + touchManagedPtr baseStream return result' -- method BufferedInputStream::new_sized -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "BufferedInputStream" -- throws : False -- Skip return : False @@ -179,22 +256,21 @@ bufferedInputStreamNewSized :: (MonadIO m, InputStreamK a) => - a -> -- base_stream - Word64 -> -- size - m BufferedInputStream -bufferedInputStreamNewSized base_stream size = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_buffered_input_stream_new_sized base_stream' size + 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 base_stream + touchManagedPtr baseStream return result' -- method BufferedInputStream::fill -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -209,10 +285,10 @@ bufferedInputStreamFill :: (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -> -- _obj - Int64 -> -- count - Maybe (b) -> -- cancellable - m Int64 + a -- _obj + -> Int64 -- count + -> Maybe (b) -- cancellable + -> m Int64 -- result bufferedInputStreamFill _obj count cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -229,11 +305,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -250,13 +329,13 @@ bufferedInputStreamFillAsync :: (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -> -- _obj - Int64 -> -- count - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -bufferedInputStreamFillAsync _obj count io_priority cancellable callback = liftIO $ do + 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 @@ -270,17 +349,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_buffered_input_stream_fill_async _obj' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -294,9 +376,9 @@ bufferedInputStreamFillFinish :: (MonadIO m, BufferedInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result bufferedInputStreamFillFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -309,11 +391,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -325,19 +410,22 @@ bufferedInputStreamGetAvailable :: (MonadIO m, BufferedInputStreamK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -349,19 +437,22 @@ bufferedInputStreamGetBufferSize :: (MonadIO m, BufferedInputStreamK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -376,10 +467,10 @@ bufferedInputStreamPeek :: (MonadIO m, BufferedInputStreamK a) => - a -> -- _obj - ByteString -> -- buffer - Word64 -> -- offset - m Word64 + 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 @@ -389,11 +480,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TCArray False (-1) 1 (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -406,8 +500,8 @@ bufferedInputStreamPeekBuffer :: (MonadIO m, BufferedInputStreamK a) => - a -> -- _obj - m ByteString + a -- _obj + -> m ByteString -- result bufferedInputStreamPeekBuffer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj count <- allocMem :: IO (Ptr Word64) @@ -419,11 +513,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -437,9 +534,9 @@ bufferedInputStreamReadByte :: (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Int32 + a -- _obj + -> Maybe (b) -- cancellable + -> m Int32 -- result bufferedInputStreamReadByte _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -456,11 +553,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -473,13 +573,17 @@ bufferedInputStreamSetBufferSize :: (MonadIO m, BufferedInputStreamK a) => - a -> -- _obj - Word64 -> -- size - m () + 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 --- a/GI/Gio/Objects/BufferedInputStream.hs-boot +++ b/GI/Gio/Objects/BufferedInputStream.hs-boot @@ -12,3 +12,12 @@ 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 --- a/GI/Gio/Objects/BufferedOutputStream.hs +++ b/GI/Gio/Objects/BufferedOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** bufferedOutputStreamGetAutoGrow + BufferedOutputStreamGetAutoGrowMethodInfo, bufferedOutputStreamGetAutoGrow , -- ** bufferedOutputStreamGetBufferSize + BufferedOutputStreamGetBufferSizeMethodInfo, bufferedOutputStreamGetBufferSize , @@ -33,10 +36,12 @@ -- ** bufferedOutputStreamSetAutoGrow + BufferedOutputStreamSetAutoGrowMethodInfo, bufferedOutputStreamSetAutoGrow , -- ** bufferedOutputStreamSetBufferSize + BufferedOutputStreamSetBufferSizeMethodInfo, bufferedOutputStreamSetBufferSize , @@ -93,6 +98,74 @@ 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] @@ -112,7 +185,7 @@ type AttrSetTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = (~) Bool type AttrBaseTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = BufferedOutputStreamK type AttrGetType BufferedOutputStreamAutoGrowPropertyInfo = Bool - type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "BufferedOutputStream::auto-grow" + type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "auto-grow" attrGet _ = getBufferedOutputStreamAutoGrow attrSet _ = setBufferedOutputStreamAutoGrow attrConstruct _ = constructBufferedOutputStreamAutoGrow @@ -136,22 +209,21 @@ type AttrSetTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = (~) Word32 type AttrBaseTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = BufferedOutputStreamK type AttrGetType BufferedOutputStreamBufferSizePropertyInfo = Word32 - type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "BufferedOutputStream::buffer-size" + type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "buffer-size" attrGet _ = getBufferedOutputStreamBufferSize attrSet _ = setBufferedOutputStreamBufferSize attrConstruct _ = constructBufferedOutputStreamBufferSize type instance AttributeList BufferedOutputStream = BufferedOutputStreamAttributeList -type BufferedOutputStreamAttributeList = ('[ '("auto-grow", BufferedOutputStreamAutoGrowPropertyInfo), '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("buffer-size", BufferedOutputStreamBufferSizePropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) +type BufferedOutputStreamAttributeList = ('[ '("autoGrow", BufferedOutputStreamAutoGrowPropertyInfo), '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedOutputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList BufferedOutputStream = BufferedOutputStreamSignalList -type BufferedOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BufferedOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method BufferedOutputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "BufferedOutputStream" -- throws : False -- Skip return : False @@ -163,21 +235,20 @@ bufferedOutputStreamNew :: (MonadIO m, OutputStreamK a) => - a -> -- base_stream - m BufferedOutputStream -bufferedOutputStreamNew base_stream = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_buffered_output_stream_new base_stream' + 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 base_stream + touchManagedPtr baseStream return result' -- method BufferedOutputStream::new_sized -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "BufferedOutputStream" -- throws : False -- Skip return : False @@ -190,22 +261,21 @@ bufferedOutputStreamNewSized :: (MonadIO m, OutputStreamK a) => - a -> -- base_stream - Word64 -> -- size - m BufferedOutputStream -bufferedOutputStreamNewSized base_stream size = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_buffered_output_stream_new_sized base_stream' size + 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 base_stream + touchManagedPtr baseStream return result' -- method BufferedOutputStream::get_auto_grow -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -217,8 +287,8 @@ bufferedOutputStreamGetAutoGrow :: (MonadIO m, BufferedOutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result bufferedOutputStreamGetAutoGrow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_buffered_output_stream_get_auto_grow _obj' @@ -226,11 +296,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -242,19 +315,22 @@ bufferedOutputStreamGetBufferSize :: (MonadIO m, BufferedOutputStreamK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_grow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_grow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -267,21 +343,24 @@ bufferedOutputStreamSetAutoGrow :: (MonadIO m, BufferedOutputStreamK a) => - a -> -- _obj - Bool -> -- auto_grow - m () -bufferedOutputStreamSetAutoGrow _obj auto_grow = liftIO $ do + a -- _obj + -> Bool -- autoGrow + -> m () -- result +bufferedOutputStreamSetAutoGrow _obj autoGrow = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let auto_grow' = (fromIntegral . fromEnum) auto_grow - g_buffered_output_stream_set_auto_grow _obj' auto_grow' + 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 {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -294,13 +373,17 @@ bufferedOutputStreamSetBufferSize :: (MonadIO m, BufferedOutputStreamK a) => - a -> -- _obj - Word64 -> -- size - m () + 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 --- a/GI/Gio/Objects/BufferedOutputStream.hs-boot +++ b/GI/Gio/Objects/BufferedOutputStream.hs-boot @@ -13,3 +13,7 @@ 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 --- a/GI/Gio/Objects/BytesIcon.hs +++ b/GI/Gio/Objects/BytesIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** bytesIconGetBytes + BytesIconGetBytesMethodInfo , bytesIconGetBytes , @@ -70,6 +72,46 @@ 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] @@ -86,7 +128,7 @@ type AttrSetTypeConstraint BytesIconBytesPropertyInfo = (~) GLib.Bytes type AttrBaseTypeConstraint BytesIconBytesPropertyInfo = BytesIconK type AttrGetType BytesIconBytesPropertyInfo = GLib.Bytes - type AttrLabel BytesIconBytesPropertyInfo = "BytesIcon::bytes" + type AttrLabel BytesIconBytesPropertyInfo = "bytes" attrGet _ = getBytesIconBytes attrSet _ = undefined attrConstruct _ = constructBytesIconBytes @@ -95,13 +137,12 @@ type BytesIconAttributeList = ('[ '("bytes", BytesIconBytesPropertyInfo)] :: [(Symbol, *)]) type instance SignalList BytesIcon = BytesIconSignalList -type BytesIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type BytesIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method BytesIcon::new -- method type : Constructor --- Args : [Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "BytesIcon" -- throws : False -- Skip return : False @@ -113,8 +154,8 @@ bytesIconNew :: (MonadIO m) => - GLib.Bytes -> -- bytes - m BytesIcon + GLib.Bytes -- bytes + -> m BytesIcon -- result bytesIconNew bytes = liftIO $ do let bytes' = unsafeManagedPtrGetPtr bytes result <- g_bytes_icon_new bytes' @@ -125,9 +166,8 @@ -- method BytesIcon::get_bytes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "BytesIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BytesIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "BytesIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Bytes" -- throws : False -- Skip return : False @@ -139,8 +179,8 @@ bytesIconGetBytes :: (MonadIO m, BytesIconK a) => - a -> -- _obj - m GLib.Bytes + a -- _obj + -> m GLib.Bytes -- result bytesIconGetBytes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_bytes_icon_get_bytes _obj' @@ -148,5 +188,9 @@ 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 --- a/GI/Gio/Objects/BytesIcon.hs-boot +++ b/GI/Gio/Objects/BytesIcon.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/Cancellable.hs +++ b/GI/Gio/Objects/Cancellable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** cancellableCancel + CancellableCancelMethodInfo , cancellableCancel , -- ** cancellableConnect + CancellableConnectMethodInfo , cancellableConnect , -- ** cancellableDisconnect + CancellableDisconnectMethodInfo , cancellableDisconnect , @@ -33,14 +37,17 @@ -- ** cancellableGetFd + CancellableGetFdMethodInfo , cancellableGetFd , -- ** cancellableIsCancelled + CancellableIsCancelledMethodInfo , cancellableIsCancelled , -- ** cancellableMakePollfd + CancellableMakePollfdMethodInfo , cancellableMakePollfd , @@ -49,22 +56,27 @@ -- ** cancellablePopCurrent + CancellablePopCurrentMethodInfo , cancellablePopCurrent , -- ** cancellablePushCurrent + CancellablePushCurrentMethodInfo , cancellablePushCurrent , -- ** cancellableReleaseFd + CancellableReleaseFdMethodInfo , cancellableReleaseFd , -- ** cancellableReset + CancellableResetMethodInfo , cancellableReset , -- ** cancellableSetErrorIfCancelled + CancellableSetErrorIfCancelledMethodInfo, cancellableSetErrorIfCancelled , @@ -120,6 +132,50 @@ 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 () @@ -167,13 +223,12 @@ connectSignal _ = connectCancellableCancelled type instance SignalList Cancellable = CancellableSignalList -type CancellableSignalList = ('[ '("cancelled", CancellableCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CancellableSignalList = ('[ '("cancelled", CancellableCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Cancellable::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Cancellable" -- throws : False -- Skip return : False @@ -184,7 +239,7 @@ cancellableNew :: (MonadIO m) => - m Cancellable + m Cancellable -- result cancellableNew = liftIO $ do result <- g_cancellable_new checkUnexpectedReturnNULL "g_cancellable_new" result @@ -193,9 +248,8 @@ -- method Cancellable::cancel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -207,19 +261,22 @@ cancellableCancel :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -234,23 +291,26 @@ cancellableConnect :: (MonadIO m, CancellableK a) => - a -> -- _obj - GObject.Callback -> -- callback - m Word64 + a -- _obj + -> GObject.Callback -- callback + -> m Word64 -- result cancellableConnect _obj callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj callback' <- GObject.mkCallback (GObject.callbackWrapper Nothing callback) let data_ = castFunPtrToPtr callback' - let data_destroy_func = safeFreeFunPtrPtr - result <- g_cancellable_connect _obj' callback' data_ data_destroy_func + let dataDestroyFunc = safeFreeFunPtrPtr + result <- g_cancellable_connect _obj' callback' data_ dataDestroyFunc touchManagedPtr _obj return result +data CancellableConnectMethodInfo +instance (signature ~ (GObject.Callback -> m Word64), MonadIO m, CancellableK a) => MethodInfo CancellableConnectMethodInfo a signature where + overloadedMethod _ = cancellableConnect + -- method Cancellable::disconnect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -263,20 +323,23 @@ cancellableDisconnect :: (MonadIO m, CancellableK a) => - a -> -- _obj - Word64 -> -- handler_id - m () -cancellableDisconnect _obj handler_id = liftIO $ do + a -- _obj + -> Word64 -- handlerId + -> m () -- result +cancellableDisconnect _obj handlerId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_disconnect _obj' handler_id + g_cancellable_disconnect _obj' handlerId touchManagedPtr _obj return () +data CancellableDisconnectMethodInfo +instance (signature ~ (Word64 -> m ()), MonadIO m, CancellableK a) => MethodInfo CancellableDisconnectMethodInfo a signature where + overloadedMethod _ = cancellableDisconnect + -- method Cancellable::get_fd -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -288,19 +351,22 @@ cancellableGetFd :: (MonadIO m, CancellableK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -312,8 +378,8 @@ cancellableIsCancelled :: (MonadIO m, CancellableK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result cancellableIsCancelled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_cancellable_is_cancelled _obj' @@ -321,11 +387,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pollfd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pollfd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -338,9 +407,9 @@ cancellableMakePollfd :: (MonadIO m, CancellableK a) => - a -> -- _obj - GLib.PollFD -> -- pollfd - m Bool + a -- _obj + -> GLib.PollFD -- pollfd + -> m Bool -- result cancellableMakePollfd _obj pollfd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pollfd' = unsafeManagedPtrGetPtr pollfd @@ -350,11 +419,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -366,19 +438,22 @@ cancellablePopCurrent :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -390,19 +465,22 @@ cancellablePushCurrent :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -414,19 +492,22 @@ cancellableReleaseFd :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -438,19 +519,22 @@ cancellableReset :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -463,8 +547,8 @@ cancellableSetErrorIfCancelled :: (MonadIO m, CancellableK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result cancellableSetErrorIfCancelled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -475,11 +559,14 @@ 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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Cancellable" -- throws : False -- Skip return : False @@ -490,7 +577,7 @@ cancellableGetCurrent :: (MonadIO m) => - m Cancellable + m Cancellable -- result cancellableGetCurrent = liftIO $ do result <- g_cancellable_get_current checkUnexpectedReturnNULL "g_cancellable_get_current" result diff --git a/GI/Gio/Objects/Cancellable.hs-boot b/GI/Gio/Objects/Cancellable.hs-boot --- a/GI/Gio/Objects/Cancellable.hs-boot +++ b/GI/Gio/Objects/Cancellable.hs-boot @@ -12,3 +12,14 @@ 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 --- a/GI/Gio/Objects/CharsetConverter.hs +++ b/GI/Gio/Objects/CharsetConverter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** charsetConverterGetNumFallbacks + CharsetConverterGetNumFallbacksMethodInfo, charsetConverterGetNumFallbacks , -- ** charsetConverterGetUseFallback + CharsetConverterGetUseFallbackMethodInfo, charsetConverterGetUseFallback , @@ -29,6 +32,7 @@ -- ** charsetConverterSetUseFallback + CharsetConverterSetUseFallbackMethodInfo, charsetConverterSetUseFallback , @@ -90,6 +94,45 @@ 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] @@ -106,7 +149,7 @@ type AttrSetTypeConstraint CharsetConverterFromCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CharsetConverterFromCharsetPropertyInfo = CharsetConverterK type AttrGetType CharsetConverterFromCharsetPropertyInfo = T.Text - type AttrLabel CharsetConverterFromCharsetPropertyInfo = "CharsetConverter::from-charset" + type AttrLabel CharsetConverterFromCharsetPropertyInfo = "from-charset" attrGet _ = getCharsetConverterFromCharset attrSet _ = undefined attrConstruct _ = constructCharsetConverterFromCharset @@ -127,7 +170,7 @@ type AttrSetTypeConstraint CharsetConverterToCharsetPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CharsetConverterToCharsetPropertyInfo = CharsetConverterK type AttrGetType CharsetConverterToCharsetPropertyInfo = T.Text - type AttrLabel CharsetConverterToCharsetPropertyInfo = "CharsetConverter::to-charset" + type AttrLabel CharsetConverterToCharsetPropertyInfo = "to-charset" attrGet _ = getCharsetConverterToCharset attrSet _ = undefined attrConstruct _ = constructCharsetConverterToCharset @@ -151,22 +194,21 @@ type AttrSetTypeConstraint CharsetConverterUseFallbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint CharsetConverterUseFallbackPropertyInfo = CharsetConverterK type AttrGetType CharsetConverterUseFallbackPropertyInfo = Bool - type AttrLabel CharsetConverterUseFallbackPropertyInfo = "CharsetConverter::use-fallback" + type AttrLabel CharsetConverterUseFallbackPropertyInfo = "use-fallback" attrGet _ = getCharsetConverterUseFallback attrSet _ = setCharsetConverterUseFallback attrConstruct _ = constructCharsetConverterUseFallback type instance AttributeList CharsetConverter = CharsetConverterAttributeList -type CharsetConverterAttributeList = ('[ '("from-charset", CharsetConverterFromCharsetPropertyInfo), '("to-charset", CharsetConverterToCharsetPropertyInfo), '("use-fallback", CharsetConverterUseFallbackPropertyInfo)] :: [(Symbol, *)]) +type CharsetConverterAttributeList = ('[ '("fromCharset", CharsetConverterFromCharsetPropertyInfo), '("toCharset", CharsetConverterToCharsetPropertyInfo), '("useFallback", CharsetConverterUseFallbackPropertyInfo)] :: [(Symbol, *)]) type instance SignalList CharsetConverter = CharsetConverterSignalList -type CharsetConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CharsetConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CharsetConverter::new -- method type : Constructor --- Args : [Arg {argName = "to_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "to_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "CharsetConverter" -- throws : True -- Skip return : False @@ -180,29 +222,28 @@ charsetConverterNew :: (MonadIO m) => - T.Text -> -- to_charset - T.Text -> -- from_charset - m CharsetConverter -charsetConverterNew to_charset from_charset = liftIO $ do - to_charset' <- textToCString to_charset - from_charset' <- textToCString from_charset + 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 to_charset' from_charset' + result <- propagateGError $ g_charset_converter_new toCharset' fromCharset' checkUnexpectedReturnNULL "g_charset_converter_new" result result' <- (wrapObject CharsetConverter) result - freeMem to_charset' - freeMem from_charset' + freeMem toCharset' + freeMem fromCharset' return result' ) (do - freeMem to_charset' - freeMem from_charset' + freeMem toCharset' + freeMem fromCharset' ) -- method CharsetConverter::get_num_fallbacks -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -214,19 +255,22 @@ charsetConverterGetNumFallbacks :: (MonadIO m, CharsetConverterK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -238,8 +282,8 @@ charsetConverterGetUseFallback :: (MonadIO m, CharsetConverterK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result charsetConverterGetUseFallback _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_charset_converter_get_use_fallback _obj' @@ -247,11 +291,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -264,14 +311,18 @@ charsetConverterSetUseFallback :: (MonadIO m, CharsetConverterK a) => - a -> -- _obj - Bool -> -- use_fallback - m () -charsetConverterSetUseFallback _obj use_fallback = liftIO $ do + a -- _obj + -> Bool -- useFallback + -> m () -- result +charsetConverterSetUseFallback _obj useFallback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_fallback' = (fromIntegral . fromEnum) use_fallback - g_charset_converter_set_use_fallback _obj' use_fallback' + 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 --- a/GI/Gio/Objects/CharsetConverter.hs-boot +++ b/GI/Gio/Objects/CharsetConverter.hs-boot @@ -14,3 +14,6 @@ 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 --- a/GI/Gio/Objects/ConverterInputStream.hs +++ b/GI/Gio/Objects/ConverterInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** converterInputStreamGetConverter + ConverterInputStreamGetConverterMethodInfo, converterInputStreamGetConverter , @@ -69,6 +71,66 @@ 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] @@ -85,22 +147,21 @@ type AttrSetTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterK type AttrBaseTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterInputStreamK type AttrGetType ConverterInputStreamConverterPropertyInfo = Converter - type AttrLabel ConverterInputStreamConverterPropertyInfo = "ConverterInputStream::converter" + type AttrLabel ConverterInputStreamConverterPropertyInfo = "converter" attrGet _ = getConverterInputStreamConverter attrSet _ = undefined attrConstruct _ = constructConverterInputStreamConverter type instance AttributeList ConverterInputStream = ConverterInputStreamAttributeList -type ConverterInputStreamAttributeList = ('[ '("base-stream", FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterInputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterInputStreamConverterPropertyInfo)] :: [(Symbol, *)]) +type ConverterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterInputStreamConverterPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ConverterInputStream = ConverterInputStreamSignalList -type ConverterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ConverterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ConverterInputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ConverterInputStream" -- throws : False -- Skip return : False @@ -113,24 +174,23 @@ converterInputStreamNew :: (MonadIO m, InputStreamK a, ConverterK b) => - a -> -- base_stream - b -> -- converter - m ConverterInputStream -converterInputStreamNew base_stream converter = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream + 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 base_stream' converter' + result <- g_converter_input_stream_new baseStream' converter' checkUnexpectedReturnNULL "g_converter_input_stream_new" result result' <- (wrapObject ConverterInputStream) result - touchManagedPtr base_stream + touchManagedPtr baseStream touchManagedPtr converter return result' -- method ConverterInputStream::get_converter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ConverterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ConverterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Converter" -- throws : False -- Skip return : False @@ -142,8 +202,8 @@ converterInputStreamGetConverter :: (MonadIO m, ConverterInputStreamK a) => - a -> -- _obj - m Converter + a -- _obj + -> m Converter -- result converterInputStreamGetConverter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_converter_input_stream_get_converter _obj' @@ -151,5 +211,9 @@ 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 --- a/GI/Gio/Objects/ConverterInputStream.hs-boot +++ b/GI/Gio/Objects/ConverterInputStream.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/ConverterOutputStream.hs +++ b/GI/Gio/Objects/ConverterOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** converterOutputStreamGetConverter + ConverterOutputStreamGetConverterMethodInfo, converterOutputStreamGetConverter , @@ -69,6 +71,70 @@ 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] @@ -85,22 +151,21 @@ type AttrSetTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterK type AttrBaseTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterOutputStreamK type AttrGetType ConverterOutputStreamConverterPropertyInfo = Converter - type AttrLabel ConverterOutputStreamConverterPropertyInfo = "ConverterOutputStream::converter" + type AttrLabel ConverterOutputStreamConverterPropertyInfo = "converter" attrGet _ = getConverterOutputStreamConverter attrSet _ = undefined attrConstruct _ = constructConverterOutputStreamConverter type instance AttributeList ConverterOutputStream = ConverterOutputStreamAttributeList -type ConverterOutputStreamAttributeList = ('[ '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)]) +type ConverterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ConverterOutputStream = ConverterOutputStreamSignalList -type ConverterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ConverterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ConverterOutputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ConverterOutputStream" -- throws : False -- Skip return : False @@ -113,24 +178,23 @@ converterOutputStreamNew :: (MonadIO m, OutputStreamK a, ConverterK b) => - a -> -- base_stream - b -> -- converter - m ConverterOutputStream -converterOutputStreamNew base_stream converter = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream + 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 base_stream' converter' + result <- g_converter_output_stream_new baseStream' converter' checkUnexpectedReturnNULL "g_converter_output_stream_new" result result' <- (wrapObject ConverterOutputStream) result - touchManagedPtr base_stream + touchManagedPtr baseStream touchManagedPtr converter return result' -- method ConverterOutputStream::get_converter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ConverterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ConverterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Converter" -- throws : False -- Skip return : False @@ -142,8 +206,8 @@ converterOutputStreamGetConverter :: (MonadIO m, ConverterOutputStreamK a) => - a -> -- _obj - m Converter + a -- _obj + -> m Converter -- result converterOutputStreamGetConverter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_converter_output_stream_get_converter _obj' @@ -151,5 +215,9 @@ 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 --- a/GI/Gio/Objects/ConverterOutputStream.hs-boot +++ b/GI/Gio/Objects/ConverterOutputStream.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/Credentials.hs +++ b/GI/Gio/Objects/Credentials.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** credentialsGetUnixPid + CredentialsGetUnixPidMethodInfo , credentialsGetUnixPid , -- ** credentialsGetUnixUser + CredentialsGetUnixUserMethodInfo , credentialsGetUnixUser , -- ** credentialsIsSameUser + CredentialsIsSameUserMethodInfo , credentialsIsSameUser , @@ -33,14 +37,17 @@ -- ** credentialsSetNative + CredentialsSetNativeMethodInfo , credentialsSetNative , -- ** credentialsSetUnixUser + CredentialsSetUnixUserMethodInfo , credentialsSetUnixUser , -- ** credentialsToString + CredentialsToStringMethodInfo , credentialsToString , @@ -80,17 +87,55 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type CredentialsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Credentials::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Credentials" -- throws : False -- Skip return : False @@ -101,7 +146,7 @@ credentialsNew :: (MonadIO m) => - m Credentials + m Credentials -- result credentialsNew = liftIO $ do result <- g_credentials_new checkUnexpectedReturnNULL "g_credentials_new" result @@ -110,9 +155,8 @@ -- method Credentials::get_unix_pid -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -125,8 +169,8 @@ credentialsGetUnixPid :: (MonadIO m, CredentialsK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result credentialsGetUnixPid _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -137,11 +181,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -154,8 +201,8 @@ credentialsGetUnixUser :: (MonadIO m, CredentialsK a) => - a -> -- _obj - m Word32 + a -- _obj + -> m Word32 -- result credentialsGetUnixUser _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -166,11 +213,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -184,26 +234,29 @@ credentialsIsSameUser :: (MonadIO m, CredentialsK a, CredentialsK b) => - a -> -- _obj - b -> -- other_credentials - m () -credentialsIsSameUser _obj other_credentials = liftIO $ do + a -- _obj + -> b -- otherCredentials + -> m () -- result +credentialsIsSameUser _obj otherCredentials = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let other_credentials' = unsafeManagedPtrCastPtr other_credentials + let otherCredentials' = unsafeManagedPtrCastPtr otherCredentials onException (do - _ <- propagateGError $ g_credentials_is_same_user _obj' other_credentials' + _ <- propagateGError $ g_credentials_is_same_user _obj' otherCredentials' touchManagedPtr _obj - touchManagedPtr other_credentials + 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 {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "native_type", argType = TInterface "Gio" "CredentialsType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "native", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "native_type", argType = TInterface "Gio" "CredentialsType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "native", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -217,22 +270,25 @@ credentialsSetNative :: (MonadIO m, CredentialsK a) => - a -> -- _obj - CredentialsType -> -- native_type - Ptr () -> -- native - m () -credentialsSetNative _obj native_type native = liftIO $ do + a -- _obj + -> CredentialsType -- nativeType + -> Ptr () -- native + -> m () -- result +credentialsSetNative _obj nativeType native = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let native_type' = (fromIntegral . fromEnum) native_type - g_credentials_set_native _obj' native_type' native + 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 {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uid", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uid", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -246,9 +302,9 @@ credentialsSetUnixUser :: (MonadIO m, CredentialsK a) => - a -> -- _obj - Word32 -> -- uid - m () + a -- _obj + -> Word32 -- uid + -> m () -- result credentialsSetUnixUser _obj uid = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -259,11 +315,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -275,8 +334,8 @@ credentialsToString :: (MonadIO m, CredentialsK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result credentialsToString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_credentials_to_string _obj' @@ -285,5 +344,9 @@ 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 --- a/GI/Gio/Objects/Credentials.hs-boot +++ b/GI/Gio/Objects/Credentials.hs-boot @@ -11,3 +11,9 @@ 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 --- a/GI/Gio/Objects/DBusActionGroup.hs +++ b/GI/Gio/Objects/DBusActionGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -56,17 +57,65 @@ 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 = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusActionGroup::get -- method type : MemberFunction --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusActionGroup" -- throws : False -- Skip return : False @@ -80,20 +129,20 @@ dBusActionGroupGet :: (MonadIO m, DBusConnectionK a) => - a -> -- connection - T.Text -> -- bus_name - T.Text -> -- object_path - m DBusActionGroup -dBusActionGroupGet connection bus_name object_path = liftIO $ do + a -- connection + -> T.Text -- busName + -> T.Text -- objectPath + -> m DBusActionGroup -- result +dBusActionGroupGet connection busName objectPath = liftIO $ do let connection' = unsafeManagedPtrCastPtr connection - bus_name' <- textToCString bus_name - object_path' <- textToCString object_path - result <- g_dbus_action_group_get connection' bus_name' object_path' + 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 bus_name' - freeMem object_path' + freeMem busName' + freeMem objectPath' return result' diff --git a/GI/Gio/Objects/DBusAuthObserver.hs b/GI/Gio/Objects/DBusAuthObserver.hs --- a/GI/Gio/Objects/DBusAuthObserver.hs +++ b/GI/Gio/Objects/DBusAuthObserver.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** dBusAuthObserverAllowMechanism + DBusAuthObserverAllowMechanismMethodInfo, dBusAuthObserverAllowMechanism , -- ** dBusAuthObserverAuthorizeAuthenticatedPeer + DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo, dBusAuthObserverAuthorizeAuthenticatedPeer, @@ -91,6 +94,41 @@ 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 -> @@ -202,13 +240,12 @@ connectSignal _ = connectDBusAuthObserverAuthorizeAuthenticatedPeer type instance SignalList DBusAuthObserver = DBusAuthObserverSignalList -type DBusAuthObserverSignalList = ('[ '("allow-mechanism", DBusAuthObserverAllowMechanismSignalInfo), '("authorize-authenticated-peer", DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusAuthObserverSignalList = ('[ '("allowMechanism", DBusAuthObserverAllowMechanismSignalInfo), '("authorizeAuthenticatedPeer", DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusAuthObserver::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "DBusAuthObserver" -- throws : False -- Skip return : False @@ -219,7 +256,7 @@ dBusAuthObserverNew :: (MonadIO m) => - m DBusAuthObserver + m DBusAuthObserver -- result dBusAuthObserverNew = liftIO $ do result <- g_dbus_auth_observer_new checkUnexpectedReturnNULL "g_dbus_auth_observer_new" result @@ -228,9 +265,8 @@ -- method DBusAuthObserver::allow_mechanism -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mechanism", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mechanism", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -243,9 +279,9 @@ dBusAuthObserverAllowMechanism :: (MonadIO m, DBusAuthObserverK a) => - a -> -- _obj - T.Text -> -- mechanism - m Bool + a -- _obj + -> T.Text -- mechanism + -> m Bool -- result dBusAuthObserverAllowMechanism _obj mechanism = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj mechanism' <- textToCString mechanism @@ -255,11 +291,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -273,10 +312,10 @@ dBusAuthObserverAuthorizeAuthenticatedPeer :: (MonadIO m, DBusAuthObserverK a, IOStreamK b, CredentialsK c) => - a -> -- _obj - b -> -- stream - Maybe (c) -> -- credentials - m Bool + a -- _obj + -> b -- stream + -> Maybe (c) -- credentials + -> m Bool -- result dBusAuthObserverAuthorizeAuthenticatedPeer _obj stream credentials = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let stream' = unsafeManagedPtrCastPtr stream @@ -291,5 +330,9 @@ 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 --- a/GI/Gio/Objects/DBusAuthObserver.hs-boot +++ b/GI/Gio/Objects/DBusAuthObserver.hs-boot @@ -13,3 +13,5 @@ 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 --- a/GI/Gio/Objects/DBusConnection.hs +++ b/GI/Gio/Objects/DBusConnection.hs @@ -1,2416 +1,2642 @@ -{- | -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 - dBusConnectionAddFilter , - - --- ** dBusConnectionCall - dBusConnectionCall , - - --- ** dBusConnectionCallFinish - dBusConnectionCallFinish , - - --- ** dBusConnectionCallSync - dBusConnectionCallSync , - - --- ** dBusConnectionCallWithUnixFdList - dBusConnectionCallWithUnixFdList , - - --- ** dBusConnectionCallWithUnixFdListFinish - dBusConnectionCallWithUnixFdListFinish , - - --- ** dBusConnectionCallWithUnixFdListSync - dBusConnectionCallWithUnixFdListSync , - - --- ** dBusConnectionClose - dBusConnectionClose , - - --- ** dBusConnectionCloseFinish - dBusConnectionCloseFinish , - - --- ** dBusConnectionCloseSync - dBusConnectionCloseSync , - - --- ** dBusConnectionEmitSignal - dBusConnectionEmitSignal , - - --- ** dBusConnectionExportActionGroup - dBusConnectionExportActionGroup , - - --- ** dBusConnectionExportMenuModel - dBusConnectionExportMenuModel , - - --- ** dBusConnectionFlush - dBusConnectionFlush , - - --- ** dBusConnectionFlushFinish - dBusConnectionFlushFinish , - - --- ** dBusConnectionFlushSync - dBusConnectionFlushSync , - - --- ** dBusConnectionGetCapabilities - dBusConnectionGetCapabilities , - - --- ** dBusConnectionGetExitOnClose - dBusConnectionGetExitOnClose , - - --- ** dBusConnectionGetGuid - dBusConnectionGetGuid , - - --- ** dBusConnectionGetLastSerial - dBusConnectionGetLastSerial , - - --- ** dBusConnectionGetPeerCredentials - dBusConnectionGetPeerCredentials , - - --- ** dBusConnectionGetStream - dBusConnectionGetStream , - - --- ** dBusConnectionGetUniqueName - dBusConnectionGetUniqueName , - - --- ** dBusConnectionIsClosed - dBusConnectionIsClosed , - - --- ** dBusConnectionNew - dBusConnectionNew , - - --- ** dBusConnectionNewFinish - dBusConnectionNewFinish , - - --- ** dBusConnectionNewForAddress - dBusConnectionNewForAddress , - - --- ** dBusConnectionNewForAddressFinish - dBusConnectionNewForAddressFinish , - - --- ** dBusConnectionNewForAddressSync - dBusConnectionNewForAddressSync , - - --- ** dBusConnectionNewSync - dBusConnectionNewSync , - - --- ** dBusConnectionRegisterObject - dBusConnectionRegisterObject , - - --- ** dBusConnectionRegisterSubtree - dBusConnectionRegisterSubtree , - - --- ** dBusConnectionRemoveFilter - dBusConnectionRemoveFilter , - - --- ** dBusConnectionSendMessage - dBusConnectionSendMessage , - - --- ** dBusConnectionSendMessageWithReply - dBusConnectionSendMessageWithReply , - - --- ** dBusConnectionSendMessageWithReplyFinish - dBusConnectionSendMessageWithReplyFinish, - - --- ** dBusConnectionSendMessageWithReplySync - dBusConnectionSendMessageWithReplySync , - - --- ** dBusConnectionSetExitOnClose - dBusConnectionSetExitOnClose , - - --- ** dBusConnectionSignalSubscribe - dBusConnectionSignalSubscribe , - - --- ** dBusConnectionSignalUnsubscribe - dBusConnectionSignalUnsubscribe , - - --- ** dBusConnectionStartMessageProcessing - dBusConnectionStartMessageProcessing , - - --- ** dBusConnectionUnexportActionGroup - dBusConnectionUnexportActionGroup , - - --- ** dBusConnectionUnexportMenuModel - dBusConnectionUnexportMenuModel , - - --- ** dBusConnectionUnregisterObject - dBusConnectionUnregisterObject , - - --- ** dBusConnectionUnregisterSubtree - dBusConnectionUnregisterSubtree , - - - - - -- * Properties --- ** Address - DBusConnectionAddressPropertyInfo , - constructDBusConnectionAddress , - - --- ** AuthenticationObserver - DBusConnectionAuthenticationObserverPropertyInfo, - constructDBusConnectionAuthenticationObserver, - - --- ** Capabilities - DBusConnectionCapabilitiesPropertyInfo , - getDBusConnectionCapabilities , - - --- ** Closed - DBusConnectionClosedPropertyInfo , - getDBusConnectionClosed , - - --- ** ExitOnClose - DBusConnectionExitOnClosePropertyInfo , - constructDBusConnectionExitOnClose , - getDBusConnectionExitOnClose , - setDBusConnectionExitOnClose , - - --- ** Flags - DBusConnectionFlagsPropertyInfo , - constructDBusConnectionFlags , - - --- ** Guid - DBusConnectionGuidPropertyInfo , - constructDBusConnectionGuid , - getDBusConnectionGuid , - - --- ** Stream - DBusConnectionStreamPropertyInfo , - constructDBusConnectionStream , - getDBusConnectionStream , - - --- ** UniqueName - DBusConnectionUniqueNamePropertyInfo , - getDBusConnectionUniqueName , - - - - - -- * Signals --- ** Closed - DBusConnectionClosedCallback , - DBusConnectionClosedCallbackC , - DBusConnectionClosedSignalInfo , - afterDBusConnectionClosed , - dBusConnectionClosedCallbackWrapper , - dBusConnectionClosedClosure , - mkDBusConnectionClosedCallback , - noDBusConnectionClosedCallback , - onDBusConnectionClosed , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gio.Types -import GI.Gio.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -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 - --- 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 _ remote_peer_vanished error_ _ = do - let remote_peer_vanished' = (/= 0) remote_peer_vanished - maybeError_ <- - if error_ == nullPtr - then return Nothing - else do - error_' <- (newBoxed GError) error_ - return $ Just error_' - _cb remote_peer_vanished' 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] - -constructDBusConnectionAddress :: T.Text -> IO ([Char], GValue) -constructDBusConnectionAddress val = constructObjectPropertyString "address" val - -data DBusConnectionAddressPropertyInfo -instance AttrInfo DBusConnectionAddressPropertyInfo where - type AttrAllowedOps DBusConnectionAddressPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DBusConnectionAddressPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusConnectionAddressPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionAddressPropertyInfo = () - type AttrLabel DBusConnectionAddressPropertyInfo = "DBusConnection::address" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionAddress - --- VVV Prop "authentication-observer" - -- Type: TInterface "Gio" "DBusAuthObserver" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructDBusConnectionAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue) -constructDBusConnectionAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" val - -data DBusConnectionAuthenticationObserverPropertyInfo -instance AttrInfo DBusConnectionAuthenticationObserverPropertyInfo where - type AttrAllowedOps DBusConnectionAuthenticationObserverPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusAuthObserverK - type AttrBaseTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionAuthenticationObserverPropertyInfo = () - type AttrLabel DBusConnectionAuthenticationObserverPropertyInfo = "DBusConnection::authentication-observer" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionAuthenticationObserver - --- VVV Prop "capabilities" - -- Type: TInterface "Gio" "DBusCapabilityFlags" - -- Flags: [PropertyReadable] - -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 = "DBusConnection::capabilities" - attrGet _ = getDBusConnectionCapabilities - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "closed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "DBusConnection::closed" - attrGet _ = getDBusConnectionClosed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "exit-on-close" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "DBusConnection::exit-on-close" - attrGet _ = getDBusConnectionExitOnClose - attrSet _ = setDBusConnectionExitOnClose - attrConstruct _ = constructDBusConnectionExitOnClose - --- VVV Prop "flags" - -- Type: TInterface "Gio" "DBusConnectionFlags" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -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 = "DBusConnection::flags" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionFlags - --- VVV Prop "guid" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDBusConnectionGuid :: (MonadIO m, DBusConnectionK o) => o -> m T.Text -getDBusConnectionGuid obj = liftIO $ getObjectPropertyString obj "guid" - -constructDBusConnectionGuid :: T.Text -> IO ([Char], GValue) -constructDBusConnectionGuid val = constructObjectPropertyString "guid" val - -data DBusConnectionGuidPropertyInfo -instance AttrInfo DBusConnectionGuidPropertyInfo where - type AttrAllowedOps DBusConnectionGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusConnectionGuidPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusConnectionGuidPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionGuidPropertyInfo = T.Text - type AttrLabel DBusConnectionGuidPropertyInfo = "DBusConnection::guid" - attrGet _ = getDBusConnectionGuid - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionGuid - --- VVV Prop "stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDBusConnectionStream :: (MonadIO m, DBusConnectionK o) => o -> m IOStream -getDBusConnectionStream obj = liftIO $ getObjectPropertyObject obj "stream" IOStream - -constructDBusConnectionStream :: (IOStreamK a) => a -> IO ([Char], GValue) -constructDBusConnectionStream val = constructObjectPropertyObject "stream" val - -data DBusConnectionStreamPropertyInfo -instance AttrInfo DBusConnectionStreamPropertyInfo where - type AttrAllowedOps DBusConnectionStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusConnectionStreamPropertyInfo = IOStreamK - type AttrBaseTypeConstraint DBusConnectionStreamPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionStreamPropertyInfo = IOStream - type AttrLabel DBusConnectionStreamPropertyInfo = "DBusConnection::stream" - attrGet _ = getDBusConnectionStream - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionStream - --- VVV Prop "unique-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getDBusConnectionUniqueName :: (MonadIO m, DBusConnectionK o) => o -> m T.Text -getDBusConnectionUniqueName obj = liftIO $ getObjectPropertyString obj "unique-name" - -data DBusConnectionUniqueNamePropertyInfo -instance AttrInfo DBusConnectionUniqueNamePropertyInfo where - type AttrAllowedOps DBusConnectionUniqueNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DBusConnectionUniqueNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DBusConnectionUniqueNamePropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionUniqueNamePropertyInfo = T.Text - type AttrLabel DBusConnectionUniqueNamePropertyInfo = "DBusConnection::unique-name" - attrGet _ = getDBusConnectionUniqueName - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList DBusConnection = DBusConnectionAttributeList -type DBusConnectionAttributeList = ('[ '("address", DBusConnectionAddressPropertyInfo), '("authentication-observer", DBusConnectionAuthenticationObserverPropertyInfo), '("capabilities", DBusConnectionCapabilitiesPropertyInfo), '("closed", DBusConnectionClosedPropertyInfo), '("exit-on-close", DBusConnectionExitOnClosePropertyInfo), '("flags", DBusConnectionFlagsPropertyInfo), '("guid", DBusConnectionGuidPropertyInfo), '("stream", DBusConnectionStreamPropertyInfo), '("unique-name", DBusConnectionUniqueNamePropertyInfo)] :: [(Symbol, *)]) - -data DBusConnectionClosedSignalInfo -instance SignalInfo DBusConnectionClosedSignalInfo where - type HaskellCallbackType DBusConnectionClosedSignalInfo = DBusConnectionClosedCallback - connectSignal _ = connectDBusConnectionClosed - -type instance SignalList DBusConnection = DBusConnectionSignalList -type DBusConnectionSignalList = ('[ '("closed", DBusConnectionClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusConnection::new_finish --- method type : Constructor --- Args : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_function", argType = TInterface "Gio" "DBusMessageFilterFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_function", argType = TInterface "Gio" "DBusMessageFilterFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - IO Word32 - - -dBusConnectionAddFilter :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - DBusMessageFilterFunction -> -- filter_function - m Word32 -dBusConnectionAddFilter _obj filter_function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter_function' <- mkDBusMessageFilterFunction (dBusMessageFilterFunctionWrapper Nothing filter_function) - let user_data = castFunPtrToPtr filter_function' - let user_data_free_func = safeFreeFunPtrPtr - result <- g_dbus_connection_add_filter _obj' filter_function' user_data user_data_free_func - touchManagedPtr _obj - return result - --- method DBusConnection::call --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 11, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 11, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -dBusConnectionCall :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (T.Text) -> -- bus_name - T.Text -> -- object_path - T.Text -> -- interface_name - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - Maybe (GLib.VariantType) -> -- reply_type - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusConnectionCall _obj bus_name object_path interface_name method_name parameters reply_type flags timeout_msec cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBus_name <- case bus_name of - Nothing -> return nullPtr - Just jBus_name -> do - jBus_name' <- textToCString jBus_name - return jBus_name' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - method_name' <- textToCString method_name - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReply_type <- case reply_type of - Nothing -> return nullPtr - Just jReply_type -> do - let jReply_type' = unsafeManagedPtrGetPtr jReply_type - return jReply_type' - 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 user_data = nullPtr - g_dbus_connection_call _obj' maybeBus_name object_path' interface_name' method_name' maybeParameters maybeReply_type flags' timeout_msec maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust reply_type touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - return () - --- method DBusConnection::call_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method DBusConnection::call_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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) -> -- bus_name - T.Text -> -- object_path - T.Text -> -- interface_name - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - Maybe (GLib.VariantType) -> -- reply_type - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- cancellable - m GVariant -dBusConnectionCallSync _obj bus_name object_path interface_name method_name parameters reply_type flags timeout_msec cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBus_name <- case bus_name of - Nothing -> return nullPtr - Just jBus_name -> do - jBus_name' <- textToCString jBus_name - return jBus_name' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - method_name' <- textToCString method_name - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReply_type <- case reply_type of - Nothing -> return nullPtr - Just jReply_type -> do - let jReply_type' = unsafeManagedPtrGetPtr jReply_type - return jReply_type' - 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' maybeBus_name object_path' interface_name' method_name' maybeParameters maybeReply_type flags' timeout_msec maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_call_sync" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust reply_type touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - return result' - ) (do - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - ) - --- method DBusConnection::call_with_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 12, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 12, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -dBusConnectionCallWithUnixFdList :: - (MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => - a -> -- _obj - Maybe (T.Text) -> -- bus_name - T.Text -> -- object_path - T.Text -> -- interface_name - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - Maybe (GLib.VariantType) -> -- reply_type - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- fd_list - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusConnectionCallWithUnixFdList _obj bus_name object_path interface_name method_name parameters reply_type flags timeout_msec fd_list cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBus_name <- case bus_name of - Nothing -> return nullPtr - Just jBus_name -> do - jBus_name' <- textToCString jBus_name - return jBus_name' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - method_name' <- textToCString method_name - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReply_type <- case reply_type of - Nothing -> return nullPtr - Just jReply_type -> do - let jReply_type' = unsafeManagedPtrGetPtr jReply_type - return jReply_type' - let flags' = gflagsToWord flags - maybeFd_list <- case fd_list of - Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' - 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 user_data = nullPtr - g_dbus_connection_call_with_unix_fd_list _obj' maybeBus_name object_path' interface_name' method_name' maybeParameters maybeReply_type flags' timeout_msec maybeFd_list maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust reply_type touchManagedPtr - whenJust fd_list touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - return () - --- method DBusConnection::call_with_unix_fd_list_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -dBusConnectionCallWithUnixFdListFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - out_fd_list <- allocMem :: IO (Ptr (Ptr UnixFDList)) - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_finish _obj' out_fd_list res' - checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_finish" result - result' <- wrapGVariantPtr result - out_fd_list' <- peek out_fd_list - out_fd_list'' <- (wrapObject UnixFDList) out_fd_list' - touchManagedPtr _obj - touchManagedPtr res - freeMem out_fd_list - return (result', out_fd_list'') - ) (do - freeMem out_fd_list - ) - --- method DBusConnection::call_with_unix_fd_list_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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) -> -- bus_name - T.Text -> -- object_path - T.Text -> -- interface_name - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - Maybe (GLib.VariantType) -> -- reply_type - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- fd_list - Maybe (c) -> -- cancellable - m (GVariant,UnixFDList) -dBusConnectionCallWithUnixFdListSync _obj bus_name object_path interface_name method_name parameters reply_type flags timeout_msec fd_list cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBus_name <- case bus_name of - Nothing -> return nullPtr - Just jBus_name -> do - jBus_name' <- textToCString jBus_name - return jBus_name' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - method_name' <- textToCString method_name - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReply_type <- case reply_type of - Nothing -> return nullPtr - Just jReply_type -> do - let jReply_type' = unsafeManagedPtrGetPtr jReply_type - return jReply_type' - let flags' = gflagsToWord flags - maybeFd_list <- case fd_list of - Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' - out_fd_list <- 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' maybeBus_name object_path' interface_name' method_name' maybeParameters maybeReply_type flags' timeout_msec maybeFd_list out_fd_list maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_sync" result - result' <- wrapGVariantPtr result - out_fd_list' <- peek out_fd_list - out_fd_list'' <- (wrapObject UnixFDList) out_fd_list' - touchManagedPtr _obj - whenJust reply_type touchManagedPtr - whenJust fd_list touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - freeMem out_fd_list - return (result', out_fd_list'') - ) (do - freeMem maybeBus_name - freeMem object_path' - freeMem interface_name' - freeMem method_name' - freeMem out_fd_list - ) - --- method DBusConnection::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -dBusConnectionClose :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_dbus_connection_close _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method DBusConnection::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method DBusConnection::close_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method DBusConnection::emit_signal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- destination_bus_name - T.Text -> -- object_path - T.Text -> -- interface_name - T.Text -> -- signal_name - Maybe (GVariant) -> -- parameters - m () -dBusConnectionEmitSignal _obj destination_bus_name object_path interface_name signal_name parameters = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDestination_bus_name <- case destination_bus_name of - Nothing -> return nullPtr - Just jDestination_bus_name -> do - jDestination_bus_name' <- textToCString jDestination_bus_name - return jDestination_bus_name' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name - signal_name' <- textToCString signal_name - 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' maybeDestination_bus_name object_path' interface_name' signal_name' maybeParameters - touchManagedPtr _obj - freeMem maybeDestination_bus_name - freeMem object_path' - freeMem interface_name' - freeMem signal_name' - return () - ) (do - freeMem maybeDestination_bus_name - freeMem object_path' - freeMem interface_name' - freeMem signal_name' - ) - --- method DBusConnection::export_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- object_path - b -> -- action_group - m Word32 -dBusConnectionExportActionGroup _obj object_path action_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - let action_group' = unsafeManagedPtrCastPtr action_group - onException (do - result <- propagateGError $ g_dbus_connection_export_action_group _obj' object_path' action_group' - touchManagedPtr _obj - touchManagedPtr action_group - freeMem object_path' - return result - ) (do - freeMem object_path' - ) - --- method DBusConnection::export_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- object_path - b -> -- menu - m Word32 -dBusConnectionExportMenuModel _obj object_path menu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - let menu' = unsafeManagedPtrCastPtr menu - onException (do - result <- propagateGError $ g_dbus_connection_export_menu_model _obj' object_path' menu' - touchManagedPtr _obj - touchManagedPtr menu - freeMem object_path' - return result - ) (do - freeMem object_path' - ) - --- method DBusConnection::flush --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -dBusConnectionFlush :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_dbus_connection_flush _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method DBusConnection::flush_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method DBusConnection::flush_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method DBusConnection::get_capabilities --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -dBusConnectionGetCapabilities _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_capabilities _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method DBusConnection::get_exit_on_close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method DBusConnection::get_guid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method DBusConnection::get_last_serial --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -dBusConnectionGetLastSerial _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_last_serial _obj' - touchManagedPtr _obj - return result - --- method DBusConnection::get_peer_credentials --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method DBusConnection::get_stream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method DBusConnection::get_unique_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method DBusConnection::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -dBusConnectionIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method DBusConnection::register_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_call_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_call_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- object_path - DBusInterfaceInfo -> -- interface_info - Maybe (Closure) -> -- method_call_closure - Maybe (Closure) -> -- get_property_closure - Maybe (Closure) -> -- set_property_closure - m Word32 -dBusConnectionRegisterObject _obj object_path interface_info method_call_closure get_property_closure_ set_property_closure_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - let interface_info' = unsafeManagedPtrGetPtr interface_info - maybeMethod_call_closure <- case method_call_closure of - Nothing -> return nullPtr - Just jMethod_call_closure -> do - let jMethod_call_closure' = unsafeManagedPtrGetPtr jMethod_call_closure - return jMethod_call_closure' - maybeGet_property_closure_ <- case get_property_closure_ of - Nothing -> return nullPtr - Just jGet_property_closure_ -> do - let jGet_property_closure_' = unsafeManagedPtrGetPtr jGet_property_closure_ - return jGet_property_closure_' - maybeSet_property_closure_ <- case set_property_closure_ of - Nothing -> return nullPtr - Just jSet_property_closure_ -> do - let jSet_property_closure_' = unsafeManagedPtrGetPtr jSet_property_closure_ - return jSet_property_closure_' - onException (do - result <- propagateGError $ g_dbus_connection_register_object_with_closures _obj' object_path' interface_info' maybeMethod_call_closure maybeGet_property_closure_ maybeSet_property_closure_ - touchManagedPtr _obj - touchManagedPtr interface_info - whenJust method_call_closure touchManagedPtr - whenJust get_property_closure_ touchManagedPtr - whenJust set_property_closure_ touchManagedPtr - freeMem object_path' - return result - ) (do - freeMem object_path' - ) - --- method DBusConnection::register_subtree --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vtable", argType = TInterface "Gio" "DBusSubtreeVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSubtreeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vtable", argType = TInterface "Gio" "DBusSubtreeVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSubtreeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TVoid - 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 -> -- object_path - DBusSubtreeVTable -> -- vtable - [DBusSubtreeFlags] -> -- flags - Ptr () -> -- user_data - GLib.DestroyNotify -> -- user_data_free_func - m Word32 -dBusConnectionRegisterSubtree _obj object_path vtable flags user_data user_data_free_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - let vtable' = unsafeManagedPtrGetPtr vtable - let flags' = gflagsToWord flags - ptruser_data_free_func <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - user_data_free_func' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptruser_data_free_func) user_data_free_func) - poke ptruser_data_free_func user_data_free_func' - onException (do - result <- propagateGError $ g_dbus_connection_register_subtree _obj' object_path' vtable' flags' user_data user_data_free_func' - touchManagedPtr _obj - touchManagedPtr vtable - freeMem object_path' - return result - ) (do - freeMem object_path' - ) - --- method DBusConnection::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -dBusConnectionRemoveFilter :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- filter_id - m () -dBusConnectionRemoveFilter _obj filter_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_remove_filter _obj' filter_id - touchManagedPtr _obj - return () - --- method DBusConnection::send_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -dBusConnectionSendMessage _obj message flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - out_serial <- allocMem :: IO (Ptr Word32) - onException (do - _ <- propagateGError $ g_dbus_connection_send_message _obj' message' flags' out_serial - out_serial' <- peek out_serial - touchManagedPtr _obj - touchManagedPtr message - freeMem out_serial - return out_serial' - ) (do - freeMem out_serial - ) - --- method DBusConnection::send_message_with_reply --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Word32 -> -- out_serial : TBasicType TUInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -dBusConnectionSendMessageWithReply :: - (MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => - a -> -- _obj - b -> -- message - [DBusSendMessageFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m (Word32) -dBusConnectionSendMessageWithReply _obj message flags timeout_msec cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - out_serial <- 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 user_data = nullPtr - g_dbus_connection_send_message_with_reply _obj' message' flags' timeout_msec out_serial maybeCancellable maybeCallback user_data - out_serial' <- peek out_serial - touchManagedPtr _obj - touchManagedPtr message - whenJust cancellable touchManagedPtr - freeMem out_serial - return out_serial' - --- method DBusConnection::send_message_with_reply_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method DBusConnection::send_message_with_reply_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -> -- timeout_msec - Maybe (c) -> -- cancellable - m (DBusMessage,Word32) -dBusConnectionSendMessageWithReplySync _obj message flags timeout_msec cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - out_serial <- 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' timeout_msec out_serial maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_send_message_with_reply_sync" result - result' <- (wrapObject DBusMessage) result - out_serial' <- peek out_serial - touchManagedPtr _obj - touchManagedPtr message - whenJust cancellable touchManagedPtr - freeMem out_serial - return (result', out_serial') - ) (do - freeMem out_serial - ) - --- method DBusConnection::set_exit_on_close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exit_on_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exit_on_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- exit_on_close - m () -dBusConnectionSetExitOnClose _obj exit_on_close = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let exit_on_close' = (fromIntegral . fromEnum) exit_on_close - g_dbus_connection_set_exit_on_close _obj' exit_on_close' - touchManagedPtr _obj - return () - --- method DBusConnection::signal_subscribe --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "member", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSignalFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "DBusSignalCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 8, argDestroy = 9, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "member", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusSignalFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "DBusSignalCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 8, argDestroy = 9, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TVoid - 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) -> -- interface_name - Maybe (T.Text) -> -- member - Maybe (T.Text) -> -- object_path - Maybe (T.Text) -> -- arg0 - [DBusSignalFlags] -> -- flags - DBusSignalCallback -> -- callback - m Word32 -dBusConnectionSignalSubscribe _obj sender interface_name member object_path arg0 flags callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSender <- case sender of - Nothing -> return nullPtr - Just jSender -> do - jSender' <- textToCString jSender - return jSender' - maybeInterface_name <- case interface_name of - Nothing -> return nullPtr - Just jInterface_name -> do - jInterface_name' <- textToCString jInterface_name - return jInterface_name' - maybeMember <- case member of - Nothing -> return nullPtr - Just jMember -> do - jMember' <- textToCString jMember - return jMember' - maybeObject_path <- case object_path of - Nothing -> return nullPtr - Just jObject_path -> do - jObject_path' <- textToCString jObject_path - return jObject_path' - 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 user_data = castFunPtrToPtr callback' - let user_data_free_func = safeFreeFunPtrPtr - result <- g_dbus_connection_signal_subscribe _obj' maybeSender maybeInterface_name maybeMember maybeObject_path maybeArg0 flags' callback' user_data user_data_free_func - touchManagedPtr _obj - freeMem maybeSender - freeMem maybeInterface_name - freeMem maybeMember - freeMem maybeObject_path - freeMem maybeArg0 - return result - --- method DBusConnection::signal_unsubscribe --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subscription_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subscription_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -dBusConnectionSignalUnsubscribe :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- subscription_id - m () -dBusConnectionSignalUnsubscribe _obj subscription_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_signal_unsubscribe _obj' subscription_id - touchManagedPtr _obj - return () - --- method DBusConnection::start_message_processing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -dBusConnectionStartMessageProcessing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_start_message_processing _obj' - touchManagedPtr _obj - return () - --- method DBusConnection::unexport_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "export_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "export_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -dBusConnectionUnexportActionGroup :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- export_id - m () -dBusConnectionUnexportActionGroup _obj export_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_unexport_action_group _obj' export_id - touchManagedPtr _obj - return () - --- method DBusConnection::unexport_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "export_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "export_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -dBusConnectionUnexportMenuModel :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- export_id - m () -dBusConnectionUnexportMenuModel _obj export_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_unexport_menu_model _obj' export_id - touchManagedPtr _obj - return () - --- method DBusConnection::unregister_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "registration_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "registration_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO CInt - - -dBusConnectionUnregisterObject :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- registration_id - m Bool -dBusConnectionUnregisterObject _obj registration_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_unregister_object _obj' registration_id - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method DBusConnection::unregister_subtree --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "registration_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "registration_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO CInt - - -dBusConnectionUnregisterSubtree :: - (MonadIO m, DBusConnectionK a) => - a -> -- _obj - Word32 -> -- registration_id - m Bool -dBusConnectionUnregisterSubtree _obj registration_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_unregister_subtree _obj' registration_id - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method DBusConnection::new --- method type : MemberFunction --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - 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 () -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 user_data = nullPtr - g_dbus_connection_new stream' maybeGuid flags' maybeObserver maybeCancellable maybeCallback user_data - touchManagedPtr stream - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeGuid - return () - --- method DBusConnection::new_for_address --- method type : MemberFunction --- Args : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -dBusConnectionNewForAddress :: - (MonadIO m, DBusAuthObserverK a, CancellableK b) => - T.Text -> -- address - [DBusConnectionFlags] -> -- flags - Maybe (a) -> -- observer - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - g_dbus_connection_new_for_address address' flags' maybeObserver maybeCancellable maybeCallback user_data + +{- | +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 , + + +-- ** AuthenticationObserver + DBusConnectionAuthenticationObserverPropertyInfo, + constructDBusConnectionAuthenticationObserver, + + +-- ** Capabilities + DBusConnectionCapabilitiesPropertyInfo , + getDBusConnectionCapabilities , + + +-- ** Closed + DBusConnectionClosedPropertyInfo , + getDBusConnectionClosed , + + +-- ** ExitOnClose + DBusConnectionExitOnClosePropertyInfo , + constructDBusConnectionExitOnClose , + getDBusConnectionExitOnClose , + setDBusConnectionExitOnClose , + + +-- ** Flags + DBusConnectionFlagsPropertyInfo , + constructDBusConnectionFlags , + + +-- ** Guid + DBusConnectionGuidPropertyInfo , + constructDBusConnectionGuid , + getDBusConnectionGuid , + + +-- ** Stream + DBusConnectionStreamPropertyInfo , + constructDBusConnectionStream , + getDBusConnectionStream , + + +-- ** UniqueName + DBusConnectionUniqueNamePropertyInfo , + getDBusConnectionUniqueName , + + + + + -- * Signals +-- ** Closed + DBusConnectionClosedCallback , + DBusConnectionClosedCallbackC , + DBusConnectionClosedSignalInfo , + afterDBusConnectionClosed , + dBusConnectionClosedCallbackWrapper , + dBusConnectionClosedClosure , + mkDBusConnectionClosedCallback , + noDBusConnectionClosedCallback , + onDBusConnectionClosed , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gio.Types +import GI.Gio.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +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] + +constructDBusConnectionAddress :: T.Text -> IO ([Char], GValue) +constructDBusConnectionAddress val = constructObjectPropertyString "address" val + +data DBusConnectionAddressPropertyInfo +instance AttrInfo DBusConnectionAddressPropertyInfo where + type AttrAllowedOps DBusConnectionAddressPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint DBusConnectionAddressPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DBusConnectionAddressPropertyInfo = DBusConnectionK + type AttrGetType DBusConnectionAddressPropertyInfo = () + type AttrLabel DBusConnectionAddressPropertyInfo = "address" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructDBusConnectionAddress + +-- VVV Prop "authentication-observer" + -- Type: TInterface "Gio" "DBusAuthObserver" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructDBusConnectionAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue) +constructDBusConnectionAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" val + +data DBusConnectionAuthenticationObserverPropertyInfo +instance AttrInfo DBusConnectionAuthenticationObserverPropertyInfo where + type AttrAllowedOps DBusConnectionAuthenticationObserverPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusAuthObserverK + type AttrBaseTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusConnectionK + type AttrGetType DBusConnectionAuthenticationObserverPropertyInfo = () + type AttrLabel DBusConnectionAuthenticationObserverPropertyInfo = "authentication-observer" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructDBusConnectionAuthenticationObserver + +-- VVV Prop "capabilities" + -- Type: TInterface "Gio" "DBusCapabilityFlags" + -- Flags: [PropertyReadable] + +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 + +-- VVV Prop "closed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 + +-- VVV Prop "exit-on-close" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 + +-- VVV Prop "flags" + -- Type: TInterface "Gio" "DBusConnectionFlags" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +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 + +-- VVV Prop "guid" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDBusConnectionGuid :: (MonadIO m, DBusConnectionK o) => o -> m T.Text +getDBusConnectionGuid obj = liftIO $ getObjectPropertyString obj "guid" + +constructDBusConnectionGuid :: T.Text -> IO ([Char], GValue) +constructDBusConnectionGuid val = constructObjectPropertyString "guid" val + +data DBusConnectionGuidPropertyInfo +instance AttrInfo DBusConnectionGuidPropertyInfo where + type AttrAllowedOps DBusConnectionGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DBusConnectionGuidPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DBusConnectionGuidPropertyInfo = DBusConnectionK + type AttrGetType DBusConnectionGuidPropertyInfo = T.Text + type AttrLabel DBusConnectionGuidPropertyInfo = "guid" + attrGet _ = getDBusConnectionGuid + attrSet _ = undefined + attrConstruct _ = constructDBusConnectionGuid + +-- VVV Prop "stream" + -- Type: TInterface "Gio" "IOStream" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDBusConnectionStream :: (MonadIO m, DBusConnectionK o) => o -> m IOStream +getDBusConnectionStream obj = liftIO $ getObjectPropertyObject obj "stream" IOStream + +constructDBusConnectionStream :: (IOStreamK a) => a -> IO ([Char], GValue) +constructDBusConnectionStream val = constructObjectPropertyObject "stream" val + +data DBusConnectionStreamPropertyInfo +instance AttrInfo DBusConnectionStreamPropertyInfo where + type AttrAllowedOps DBusConnectionStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DBusConnectionStreamPropertyInfo = IOStreamK + type AttrBaseTypeConstraint DBusConnectionStreamPropertyInfo = DBusConnectionK + type AttrGetType DBusConnectionStreamPropertyInfo = IOStream + type AttrLabel DBusConnectionStreamPropertyInfo = "stream" + attrGet _ = getDBusConnectionStream + attrSet _ = undefined + attrConstruct _ = constructDBusConnectionStream + +-- VVV Prop "unique-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDBusConnectionUniqueName :: (MonadIO m, DBusConnectionK o) => o -> m T.Text +getDBusConnectionUniqueName obj = liftIO $ getObjectPropertyString obj "unique-name" + +data DBusConnectionUniqueNamePropertyInfo +instance AttrInfo DBusConnectionUniqueNamePropertyInfo where + type AttrAllowedOps DBusConnectionUniqueNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DBusConnectionUniqueNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DBusConnectionUniqueNamePropertyInfo = DBusConnectionK + type AttrGetType DBusConnectionUniqueNamePropertyInfo = T.Text + type AttrLabel DBusConnectionUniqueNamePropertyInfo = "unique-name" + attrGet _ = getDBusConnectionUniqueName + attrSet _ = undefined + attrConstruct _ = 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, *)]) + +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 : 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 : 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 : 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 : 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 TVoid, 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 : TBasicType TUInt32 +-- 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 TVoid + 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 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 : 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 TInt32 + 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 TInt32, 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TInt32 + Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TInt32, 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 : 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 TInt32 + 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TVoid + 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 : 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 : 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 : 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 : TBasicType TUInt32 +-- 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 : TBasicType TUInt32 +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TVoid + 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : TBasicType TUInt32 +-- 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 TVoid, 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 : TBasicType TUInt32 +-- 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 TVoid + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_remove_filter" g_dbus_connection_remove_filter :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- filter_id : TBasicType TUInt32 + 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 : 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 TInt32, 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TInt32 + Ptr Word32 -> -- out_serial : TBasicType TUInt32 + Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + 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 : 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 TInt32, 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 : 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 TInt32 + 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 : TBasicType TVoid +-- 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 TVoid, 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 : TBasicType TUInt32 +-- 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 TVoid + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_signal_unsubscribe" g_dbus_connection_signal_unsubscribe :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- subscription_id : TBasicType TUInt32 + 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 : TBasicType TVoid +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_unexport_action_group" g_dbus_connection_unexport_action_group :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- export_id : TBasicType TUInt32 + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_unexport_menu_model" g_dbus_connection_unexport_menu_model :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- export_id : TBasicType TUInt32 + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_unregister_object" g_dbus_connection_unregister_object :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- registration_id : TBasicType TUInt32 + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_connection_unregister_subtree" g_dbus_connection_unregister_subtree :: + Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" + Word32 -> -- registration_id : TBasicType TUInt32 + 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TVoid + 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dbus_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 TVoid + 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' diff --git a/GI/Gio/Objects/DBusConnection.hs-boot b/GI/Gio/Objects/DBusConnection.hs-boot --- a/GI/Gio/Objects/DBusConnection.hs-boot +++ b/GI/Gio/Objects/DBusConnection.hs-boot @@ -21,3 +21,42 @@ 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 --- a/GI/Gio/Objects/DBusInterfaceSkeleton.hs +++ b/GI/Gio/Objects/DBusInterfaceSkeleton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * 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, @@ -125,6 +138,52 @@ 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 -> @@ -188,13 +247,13 @@ type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [DBusInterfaceSkeletonFlags] type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeletonK type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [DBusInterfaceSkeletonFlags] - type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "DBusInterfaceSkeleton::g-flags" + type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags" attrGet _ = getDBusInterfaceSkeletonGFlags attrSet _ = setDBusInterfaceSkeletonGFlags attrConstruct _ = constructDBusInterfaceSkeletonGFlags type instance AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList -type DBusInterfaceSkeletonAttributeList = ('[ '("g-flags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)]) +type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)]) data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where @@ -202,13 +261,12 @@ connectSignal _ = connectDBusInterfaceSkeletonGAuthorizeMethod type instance SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList -type DBusInterfaceSkeletonSignalList = ('[ '("g-authorize-method", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusInterfaceSkeleton::export -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -223,29 +281,32 @@ dBusInterfaceSkeletonExport :: (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -> -- _obj - b -> -- connection - T.Text -> -- object_path - m () -dBusInterfaceSkeletonExport _obj connection object_path = liftIO $ do + a -- _obj + -> b -- connection + -> T.Text -- objectPath + -> m () -- result +dBusInterfaceSkeletonExport _obj connection objectPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let connection' = unsafeManagedPtrCastPtr connection - object_path' <- textToCString object_path + objectPath' <- textToCString objectPath onException (do - _ <- propagateGError $ g_dbus_interface_skeleton_export _obj' connection' object_path' + _ <- propagateGError $ g_dbus_interface_skeleton_export _obj' connection' objectPath' touchManagedPtr _obj touchManagedPtr connection - freeMem object_path' + freeMem objectPath' return () ) (do - freeMem object_path' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -257,19 +318,22 @@ dBusInterfaceSkeletonFlush :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -281,8 +345,8 @@ dBusInterfaceSkeletonGetConnection :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusInterfaceSkeletonGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_connection _obj' @@ -291,11 +355,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "DBusConnection") -- throws : False -- Skip return : False @@ -307,8 +374,8 @@ dBusInterfaceSkeletonGetConnections :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m [DBusConnection] + a -- _obj + -> m [DBusConnection] -- result dBusInterfaceSkeletonGetConnections _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_connections _obj' @@ -319,11 +386,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceSkeletonFlags" -- throws : False -- Skip return : False @@ -335,8 +405,8 @@ dBusInterfaceSkeletonGetFlags :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m [DBusInterfaceSkeletonFlags] + a -- _obj + -> m [DBusInterfaceSkeletonFlags] -- result dBusInterfaceSkeletonGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_flags _obj' @@ -344,11 +414,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceInfo" -- throws : False -- Skip return : False @@ -360,8 +433,8 @@ dBusInterfaceSkeletonGetInfo :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m DBusInterfaceInfo + a -- _obj + -> m DBusInterfaceInfo -- result dBusInterfaceSkeletonGetInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_info _obj' @@ -370,11 +443,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -386,8 +462,8 @@ dBusInterfaceSkeletonGetObjectPath :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusInterfaceSkeletonGetObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_object_path _obj' @@ -396,11 +472,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -412,8 +491,8 @@ dBusInterfaceSkeletonGetProperties :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result dBusInterfaceSkeletonGetProperties _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_interface_skeleton_get_properties _obj' @@ -422,11 +501,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -439,9 +521,9 @@ dBusInterfaceSkeletonHasConnection :: (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -> -- _obj - b -> -- connection - m Bool + a -- _obj + -> b -- connection + -> m Bool -- result dBusInterfaceSkeletonHasConnection _obj connection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let connection' = unsafeManagedPtrCastPtr connection @@ -451,11 +533,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusInterfaceSkeletonFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusInterfaceSkeletonFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -468,9 +553,9 @@ dBusInterfaceSkeletonSetFlags :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - [DBusInterfaceSkeletonFlags] -> -- flags - m () + a -- _obj + -> [DBusInterfaceSkeletonFlags] -- flags + -> m () -- result dBusInterfaceSkeletonSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -478,11 +563,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -494,19 +582,22 @@ dBusInterfaceSkeletonUnexport :: (MonadIO m, DBusInterfaceSkeletonK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -519,9 +610,9 @@ dBusInterfaceSkeletonUnexportFromConnection :: (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -> -- _obj - b -> -- connection - m () + a -- _obj + -> b -- connection + -> m () -- result dBusInterfaceSkeletonUnexportFromConnection _obj connection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let connection' = unsafeManagedPtrCastPtr connection @@ -529,5 +620,9 @@ 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 --- a/GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot +++ b/GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot @@ -13,3 +13,15 @@ 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 --- a/GI/Gio/Objects/DBusMenuModel.hs +++ b/GI/Gio/Objects/DBusMenuModel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -56,17 +57,56 @@ 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 = ('[ '("items-changed", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusMenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusMenuModel::get -- method type : MemberFunction --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMenuModel" -- throws : False -- Skip return : False @@ -80,20 +120,20 @@ dBusMenuModelGet :: (MonadIO m, DBusConnectionK a) => - a -> -- connection - T.Text -> -- bus_name - T.Text -> -- object_path - m DBusMenuModel -dBusMenuModelGet connection bus_name object_path = liftIO $ do + a -- connection + -> T.Text -- busName + -> T.Text -- objectPath + -> m DBusMenuModel -- result +dBusMenuModelGet connection busName objectPath = liftIO $ do let connection' = unsafeManagedPtrCastPtr connection - bus_name' <- textToCString bus_name - object_path' <- textToCString object_path - result <- g_dbus_menu_model_get connection' bus_name' object_path' + 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 bus_name' - freeMem object_path' + freeMem busName' + freeMem objectPath' return result' diff --git a/GI/Gio/Objects/DBusMessage.hs b/GI/Gio/Objects/DBusMessage.hs --- a/GI/Gio/Objects/DBusMessage.hs +++ b/GI/Gio/Objects/DBusMessage.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,86 +22,107 @@ -- ** 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 , @@ -117,10 +139,12 @@ -- ** dBusMessageNewMethodErrorLiteral + DBusMessageNewMethodErrorLiteralMethodInfo, dBusMessageNewMethodErrorLiteral , -- ** dBusMessageNewMethodReply + DBusMessageNewMethodReplyMethodInfo , dBusMessageNewMethodReply , @@ -129,78 +153,97 @@ -- ** 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 , @@ -248,6 +291,81 @@ 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] @@ -261,7 +379,7 @@ type AttrSetTypeConstraint DBusMessageLockedPropertyInfo = (~) () type AttrBaseTypeConstraint DBusMessageLockedPropertyInfo = DBusMessageK type AttrGetType DBusMessageLockedPropertyInfo = Bool - type AttrLabel DBusMessageLockedPropertyInfo = "DBusMessage::locked" + type AttrLabel DBusMessageLockedPropertyInfo = "locked" attrGet _ = getDBusMessageLocked attrSet _ = undefined attrConstruct _ = undefined @@ -270,13 +388,12 @@ type DBusMessageAttributeList = ('[ '("locked", DBusMessageLockedPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DBusMessage = DBusMessageSignalList -type DBusMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusMessage::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -287,7 +404,7 @@ dBusMessageNew :: (MonadIO m) => - m DBusMessage + m DBusMessage -- result dBusMessageNew = liftIO $ do result <- g_dbus_message_new checkUnexpectedReturnNULL "g_dbus_message_new" result @@ -296,9 +413,8 @@ -- method DBusMessage::new_from_blob -- method type : Constructor --- Args : [Arg {argName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TInterface "Gio" "DBusMessage" -- throws : True -- Skip return : False @@ -313,15 +429,15 @@ dBusMessageNewFromBlob :: (MonadIO m) => - ByteString -> -- blob - [DBusCapabilityFlags] -> -- capabilities - m DBusMessage + ByteString -- blob + -> [DBusCapabilityFlags] -- capabilities + -> m DBusMessage -- result dBusMessageNewFromBlob blob capabilities = liftIO $ do - let blob_len = fromIntegral $ B.length blob + let blobLen = fromIntegral $ B.length blob blob' <- packByteString blob let capabilities' = gflagsToWord capabilities onException (do - result <- propagateGError $ g_dbus_message_new_from_blob blob' blob_len capabilities' + 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' @@ -332,9 +448,8 @@ -- method DBusMessage::new_method_call -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -349,38 +464,37 @@ dBusMessageNewMethodCall :: (MonadIO m) => - Maybe (T.Text) -> -- name - T.Text -> -- path - Maybe (T.Text) -> -- interface_ - T.Text -> -- method - m DBusMessage -dBusMessageNewMethodCall name path interface_ method = liftIO $ do + 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 + maybeInterface <- case interface of Nothing -> return nullPtr - Just jInterface_ -> do - jInterface_' <- textToCString jInterface_ - return jInterface_' + Just jInterface -> do + jInterface' <- textToCString jInterface + return jInterface' method' <- textToCString method - result <- g_dbus_message_new_method_call maybeName path' maybeInterface_ 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 maybeInterface freeMem method' return result' -- method DBusMessage::new_signal -- method type : Constructor --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -394,27 +508,26 @@ dBusMessageNewSignal :: (MonadIO m) => - T.Text -> -- path - T.Text -> -- interface_ - T.Text -> -- signal - m DBusMessage -dBusMessageNewSignal path interface_ signal = liftIO $ do + T.Text -- path + -> T.Text -- interface + -> T.Text -- signal + -> m DBusMessage -- result +dBusMessageNewSignal path interface signal = liftIO $ do path' <- textToCString path - interface_' <- textToCString interface_ + interface' <- textToCString interface signal' <- textToCString signal - result <- g_dbus_message_new_signal path' interface_' 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 interface' freeMem signal' return result' -- method DBusMessage::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : True -- Skip return : False @@ -427,8 +540,8 @@ dBusMessageCopy :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m DBusMessage + a -- _obj + -> m DBusMessage -- result dBusMessageCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -441,11 +554,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -457,8 +573,8 @@ dBusMessageGetArg0 :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetArg0 _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_arg0 _obj' @@ -467,11 +583,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -483,8 +602,8 @@ dBusMessageGetBody :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result dBusMessageGetBody _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_body _obj' @@ -493,11 +612,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessageByteOrder" -- throws : False -- Skip return : False @@ -509,8 +631,8 @@ dBusMessageGetByteOrder :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m DBusMessageByteOrder + a -- _obj + -> m DBusMessageByteOrder -- result dBusMessageGetByteOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_byte_order _obj' @@ -518,11 +640,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -534,8 +659,8 @@ dBusMessageGetDestination :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetDestination _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_destination _obj' @@ -544,11 +669,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -560,8 +688,8 @@ dBusMessageGetErrorName :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetErrorName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_error_name _obj' @@ -570,11 +698,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessageFlags" -- throws : False -- Skip return : False @@ -586,8 +717,8 @@ dBusMessageGetFlags :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m [DBusMessageFlags] + a -- _obj + -> m [DBusMessageFlags] -- result dBusMessageGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_flags _obj' @@ -595,11 +726,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -612,23 +746,26 @@ dBusMessageGetHeader :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - DBusMessageHeaderField -> -- header_field - m GVariant -dBusMessageGetHeader _obj header_field = liftIO $ do + a -- _obj + -> DBusMessageHeaderField -- headerField + -> m GVariant -- result +dBusMessageGetHeader _obj headerField = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let header_field' = (fromIntegral . fromEnum) header_field - result <- g_dbus_message_get_header _obj' header_field' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -640,8 +777,8 @@ dBusMessageGetHeaderFields :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m ByteString + a -- _obj + -> m ByteString -- result dBusMessageGetHeaderFields _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_header_fields _obj' @@ -650,11 +787,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -666,8 +806,8 @@ dBusMessageGetInterface :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetInterface _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_interface _obj' @@ -676,11 +816,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -692,8 +835,8 @@ dBusMessageGetLocked :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result dBusMessageGetLocked _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_locked _obj' @@ -701,11 +844,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -717,8 +863,8 @@ dBusMessageGetMember :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetMember _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_member _obj' @@ -727,11 +873,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessageType" -- throws : False -- Skip return : False @@ -743,8 +892,8 @@ dBusMessageGetMessageType :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m DBusMessageType + a -- _obj + -> m DBusMessageType -- result dBusMessageGetMessageType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_message_type _obj' @@ -752,11 +901,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -768,19 +920,22 @@ dBusMessageGetNumUnixFds :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -792,8 +947,8 @@ dBusMessageGetPath :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_path _obj' @@ -802,11 +957,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -818,19 +976,22 @@ dBusMessageGetReplySerial :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -842,8 +1003,8 @@ dBusMessageGetSender :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetSender _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_sender _obj' @@ -852,11 +1013,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -868,19 +1032,22 @@ dBusMessageGetSerial :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -892,8 +1059,8 @@ dBusMessageGetSignature :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMessageGetSignature _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_signature _obj' @@ -902,11 +1069,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixFDList" -- throws : False -- Skip return : False @@ -918,8 +1088,8 @@ dBusMessageGetUnixFdList :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m UnixFDList + a -- _obj + -> m UnixFDList -- result dBusMessageGetUnixFdList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_get_unix_fd_list _obj' @@ -928,11 +1098,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -944,19 +1117,22 @@ dBusMessageLock :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -970,27 +1146,30 @@ dBusMessageNewMethodErrorLiteral :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- error_name - T.Text -> -- error_message - m DBusMessage -dBusMessageNewMethodErrorLiteral _obj error_name error_message = liftIO $ do + a -- _obj + -> T.Text -- errorName + -> T.Text -- errorMessage + -> m DBusMessage -- result +dBusMessageNewMethodErrorLiteral _obj errorName errorMessage = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - error_name' <- textToCString error_name - error_message' <- textToCString error_message - result <- g_dbus_message_new_method_error_literal _obj' error_name' error_message' + 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 error_name' - freeMem error_message' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -1002,8 +1181,8 @@ dBusMessageNewMethodReply :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m DBusMessage + a -- _obj + -> m DBusMessage -- result dBusMessageNewMethodReply _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_new_method_reply _obj' @@ -1012,11 +1191,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1029,9 +1211,9 @@ dBusMessagePrint :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - Word32 -> -- indent - m T.Text + a -- _obj + -> Word32 -- indent + -> m T.Text -- result dBusMessagePrint _obj indent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_message_print _obj' indent @@ -1041,11 +1223,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1058,9 +1243,9 @@ dBusMessageSetBody :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - GVariant -> -- body - m () + a -- _obj + -> GVariant -- body + -> m () -- result dBusMessageSetBody _obj body = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let body' = unsafeManagedPtrGetPtr body @@ -1068,11 +1253,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_order", argType = TInterface "Gio" "DBusMessageByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_order", argType = TInterface "Gio" "DBusMessageByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1085,21 +1273,24 @@ dBusMessageSetByteOrder :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - DBusMessageByteOrder -> -- byte_order - m () -dBusMessageSetByteOrder _obj byte_order = liftIO $ do + a -- _obj + -> DBusMessageByteOrder -- byteOrder + -> m () -- result +dBusMessageSetByteOrder _obj byteOrder = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let byte_order' = (fromIntegral . fromEnum) byte_order - g_dbus_message_set_byte_order _obj' byte_order' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1112,9 +1303,9 @@ dBusMessageSetDestination :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetDestination _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1123,11 +1314,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1140,9 +1334,9 @@ dBusMessageSetErrorName :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetErrorName _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1151,11 +1345,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1168,9 +1365,9 @@ dBusMessageSetFlags :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - [DBusMessageFlags] -> -- flags - m () + a -- _obj + -> [DBusMessageFlags] -- flags + -> m () -- result dBusMessageSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -1178,11 +1375,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1196,27 +1396,30 @@ dBusMessageSetHeader :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - DBusMessageHeaderField -> -- header_field - Maybe (GVariant) -> -- value - m () -dBusMessageSetHeader _obj header_field value = liftIO $ do + a -- _obj + -> DBusMessageHeaderField -- headerField + -> Maybe (GVariant) -- value + -> m () -- result +dBusMessageSetHeader _obj headerField value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let header_field' = (fromIntegral . fromEnum) header_field + 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' header_field' maybeValue + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1229,9 +1432,9 @@ dBusMessageSetInterface :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetInterface _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1240,11 +1443,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1257,9 +1463,9 @@ dBusMessageSetMember :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetMember _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1268,11 +1474,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "DBusMessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "DBusMessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1285,9 +1494,9 @@ dBusMessageSetMessageType :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - DBusMessageType -> -- type - m () + a -- _obj + -> DBusMessageType -- type_ + -> m () -- result dBusMessageSetMessageType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -1295,11 +1504,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1312,20 +1524,23 @@ dBusMessageSetNumUnixFds :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - Word32 -> -- value - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1338,9 +1553,9 @@ dBusMessageSetPath :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetPath _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1349,11 +1564,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1366,20 +1584,23 @@ dBusMessageSetReplySerial :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - Word32 -> -- value - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1392,9 +1613,9 @@ dBusMessageSetSender :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetSender _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1403,11 +1624,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "serial", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "serial", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1420,20 +1644,23 @@ dBusMessageSetSerial :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - Word32 -> -- serial - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1446,9 +1673,9 @@ dBusMessageSetSignature :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - T.Text -> -- value - m () + a -- _obj + -> T.Text -- value + -> m () -- result dBusMessageSetSignature _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value @@ -1457,11 +1684,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1474,26 +1704,29 @@ dBusMessageSetUnixFdList :: (MonadIO m, DBusMessageK a, UnixFDListK b) => - a -> -- _obj - Maybe (b) -> -- fd_list - m () -dBusMessageSetUnixFdList _obj fd_list = liftIO $ do + a -- _obj + -> Maybe (b) -- fdList + -> m () -- result +dBusMessageSetUnixFdList _obj fdList = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeFd_list <- case fd_list of + maybeFdList <- case fdList of Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' - g_dbus_message_set_unix_fd_list _obj' maybeFd_list + Just jFdList -> do + let jFdList' = unsafeManagedPtrCastPtr jFdList + return jFdList' + g_dbus_message_set_unix_fd_list _obj' maybeFdList touchManagedPtr _obj - whenJust fd_list touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TCArray False (-1) 1 (TBasicType TUInt8) -- throws : True -- Skip return : False @@ -1508,31 +1741,34 @@ dBusMessageToBlob :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - [DBusCapabilityFlags] -> -- capabilities - m ByteString + a -- _obj + -> [DBusCapabilityFlags] -- capabilities + -> m ByteString -- result dBusMessageToBlob _obj capabilities = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - out_size <- allocMem :: IO (Ptr Word64) + outSize <- allocMem :: IO (Ptr Word64) let capabilities' = gflagsToWord capabilities onException (do - result <- propagateGError $ g_dbus_message_to_blob _obj' out_size capabilities' - out_size' <- peek out_size + result <- propagateGError $ g_dbus_message_to_blob _obj' outSize capabilities' + outSize' <- peek outSize checkUnexpectedReturnNULL "g_dbus_message_to_blob" result - result' <- (unpackByteStringWithLength out_size') result + result' <- (unpackByteStringWithLength outSize') result freeMem result touchManagedPtr _obj - freeMem out_size + freeMem outSize return result' ) (do - freeMem out_size + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1545,8 +1781,8 @@ dBusMessageToGerror :: (MonadIO m, DBusMessageK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result dBusMessageToGerror _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1557,11 +1793,14 @@ 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 {argName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1575,13 +1814,13 @@ dBusMessageBytesNeeded :: (MonadIO m) => - ByteString -> -- blob - m Int64 + ByteString -- blob + -> m Int64 -- result dBusMessageBytesNeeded blob = liftIO $ do - let blob_len = fromIntegral $ B.length blob + let blobLen = fromIntegral $ B.length blob blob' <- packByteString blob onException (do - result <- propagateGError $ g_dbus_message_bytes_needed blob' blob_len + result <- propagateGError $ g_dbus_message_bytes_needed blob' blobLen freeMem blob' return result ) (do diff --git a/GI/Gio/Objects/DBusMessage.hs-boot b/GI/Gio/Objects/DBusMessage.hs-boot --- a/GI/Gio/Objects/DBusMessage.hs-boot +++ b/GI/Gio/Objects/DBusMessage.hs-boot @@ -12,3 +12,45 @@ 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 --- a/GI/Gio/Objects/DBusMethodInvocation.hs +++ b/GI/Gio/Objects/DBusMethodInvocation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,58 +18,72 @@ -- * 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, @@ -108,17 +123,63 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusMethodInvocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusMethodInvocation::get_connection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -130,8 +191,8 @@ dBusMethodInvocationGetConnection :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusMethodInvocationGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_connection _obj' @@ -140,11 +201,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -156,8 +220,8 @@ dBusMethodInvocationGetInterfaceName :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMethodInvocationGetInterfaceName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_interface_name _obj' @@ -166,11 +230,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMessage" -- throws : False -- Skip return : False @@ -182,8 +249,8 @@ dBusMethodInvocationGetMessage :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m DBusMessage + a -- _obj + -> m DBusMessage -- result dBusMethodInvocationGetMessage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_message _obj' @@ -192,11 +259,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMethodInfo" -- throws : False -- Skip return : False @@ -208,8 +278,8 @@ dBusMethodInvocationGetMethodInfo :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m DBusMethodInfo + a -- _obj + -> m DBusMethodInfo -- result dBusMethodInvocationGetMethodInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_method_info _obj' @@ -218,11 +288,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -234,8 +307,8 @@ dBusMethodInvocationGetMethodName :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMethodInvocationGetMethodName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_method_name _obj' @@ -244,11 +317,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -260,8 +336,8 @@ dBusMethodInvocationGetObjectPath :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMethodInvocationGetObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_object_path _obj' @@ -270,11 +346,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -286,8 +365,8 @@ dBusMethodInvocationGetParameters :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result dBusMethodInvocationGetParameters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_parameters _obj' @@ -296,11 +375,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusPropertyInfo" -- throws : False -- Skip return : False @@ -312,8 +394,8 @@ dBusMethodInvocationGetPropertyInfo :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m DBusPropertyInfo + a -- _obj + -> m DBusPropertyInfo -- result dBusMethodInvocationGetPropertyInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_property_info _obj' @@ -322,11 +404,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -338,8 +423,8 @@ dBusMethodInvocationGetSender :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusMethodInvocationGetSender _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_method_invocation_get_sender _obj' @@ -348,11 +433,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -366,25 +454,28 @@ dBusMethodInvocationReturnDbusError :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - T.Text -> -- error_name - T.Text -> -- error_message - m () -dBusMethodInvocationReturnDbusError _obj error_name error_message = liftIO $ do + a -- _obj + -> T.Text -- errorName + -> T.Text -- errorMessage + -> m () -- result +dBusMethodInvocationReturnDbusError _obj errorName errorMessage = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - error_name' <- textToCString error_name - error_message' <- textToCString error_message - g_dbus_method_invocation_return_dbus_error _obj' error_name' error_message' + errorName' <- textToCString errorName + errorMessage' <- textToCString errorMessage + g_dbus_method_invocation_return_dbus_error _obj' errorName' errorMessage' touchManagedPtr _obj - freeMem error_name' - freeMem error_message' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -399,11 +490,11 @@ dBusMethodInvocationReturnErrorLiteral :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - Word32 -> -- domain - Int32 -> -- code - T.Text -> -- message - m () + 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 @@ -412,11 +503,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -429,9 +523,9 @@ dBusMethodInvocationReturnGerror :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - GError -> -- error - m () + a -- _obj + -> GError -- error_ + -> m () -- result dBusMethodInvocationReturnGerror _obj error_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let error_' = unsafeManagedPtrGetPtr error_ @@ -440,11 +534,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -457,9 +554,9 @@ dBusMethodInvocationReturnValue :: (MonadIO m, DBusMethodInvocationK a) => - a -> -- _obj - Maybe (GVariant) -> -- parameters - m () + a -- _obj + -> Maybe (GVariant) -- parameters + -> m () -- result dBusMethodInvocationReturnValue _obj parameters = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeParameters <- case parameters of @@ -471,11 +568,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -489,25 +589,29 @@ dBusMethodInvocationReturnValueWithUnixFdList :: (MonadIO m, DBusMethodInvocationK a, UnixFDListK b) => - a -> -- _obj - Maybe (GVariant) -> -- parameters - Maybe (b) -> -- fd_list - m () -dBusMethodInvocationReturnValueWithUnixFdList _obj parameters fd_list = liftIO $ do + 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' - maybeFd_list <- case fd_list of + maybeFdList <- case fdList of Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' - g_dbus_method_invocation_return_value_with_unix_fd_list _obj' maybeParameters maybeFd_list + 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 fd_list touchManagedPtr + 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 --- a/GI/Gio/Objects/DBusMethodInvocation.hs-boot +++ b/GI/Gio/Objects/DBusMethodInvocation.hs-boot @@ -11,3 +11,17 @@ 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 --- a/GI/Gio/Objects/DBusObjectManagerClient.hs +++ b/GI/Gio/Objects/DBusObjectManagerClient.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** dBusObjectManagerClientGetConnection + DBusObjectManagerClientGetConnectionMethodInfo, dBusObjectManagerClientGetConnection , -- ** dBusObjectManagerClientGetFlags + DBusObjectManagerClientGetFlagsMethodInfo, dBusObjectManagerClientGetFlags , -- ** dBusObjectManagerClientGetName + DBusObjectManagerClientGetNameMethodInfo, dBusObjectManagerClientGetName , -- ** dBusObjectManagerClientGetNameOwner + DBusObjectManagerClientGetNameOwnerMethodInfo, dBusObjectManagerClientGetNameOwner , @@ -175,6 +180,50 @@ 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 -> @@ -211,12 +260,12 @@ Ptr CString -> Ptr () -> IO () -dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper _cb _ object_proxy interface_proxy changed_properties invalidated_properties _ = do - object_proxy' <- (newObject DBusObjectProxy) object_proxy - interface_proxy' <- (newObject DBusProxy) interface_proxy - changed_properties' <- newGVariantFromPtr changed_properties - invalidated_properties' <- unpackZeroTerminatedUTF8CArray invalidated_properties - _cb object_proxy' interface_proxy' changed_properties' invalidated_properties' +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 @@ -268,13 +317,13 @@ Ptr GVariant -> Ptr () -> IO () -dBusObjectManagerClientInterfaceProxySignalCallbackWrapper _cb _ object_proxy interface_proxy sender_name signal_name parameters _ = do - object_proxy' <- (newObject DBusObjectProxy) object_proxy - interface_proxy' <- (newObject DBusProxy) interface_proxy - sender_name' <- cstringToText sender_name - signal_name' <- cstringToText signal_name +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 object_proxy' interface_proxy' sender_name' signal_name' parameters' + _cb objectProxy' interfaceProxy' senderName' signalName' parameters' onDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectBefore @@ -300,7 +349,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) BusType type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = () - type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "DBusObjectManagerClient::bus-type" + type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientBusType @@ -321,7 +370,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusConnectionK type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = DBusConnection - type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "DBusObjectManagerClient::connection" + type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection" attrGet _ = getDBusObjectManagerClientConnection attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientConnection @@ -342,7 +391,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [DBusObjectManagerClientFlags] type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [DBusObjectManagerClientFlags] - type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "DBusObjectManagerClient::flags" + type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags" attrGet _ = getDBusObjectManagerClientFlags attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientFlags @@ -363,7 +412,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ()) type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "DBusObjectManagerClient::get-proxy-type-destroy-notify" + type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify" attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify @@ -384,7 +433,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ()) type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "DBusObjectManagerClient::get-proxy-type-func" + type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func" attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc @@ -405,7 +454,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ()) type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "DBusObjectManagerClient::get-proxy-type-user-data" + type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data" attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData @@ -426,7 +475,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text - type AttrLabel DBusObjectManagerClientNamePropertyInfo = "DBusObjectManagerClient::name" + type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name" attrGet _ = getDBusObjectManagerClientName attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientName @@ -444,7 +493,7 @@ type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) () type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = T.Text - type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "DBusObjectManagerClient::name-owner" + type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner" attrGet _ = getDBusObjectManagerClientNameOwner attrSet _ = undefined attrConstruct _ = undefined @@ -465,13 +514,13 @@ type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClientK type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = T.Text - type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "DBusObjectManagerClient::object-path" + type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path" attrGet _ = getDBusObjectManagerClientObjectPath attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerClientObjectPath type instance AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList -type DBusObjectManagerClientAttributeList = ('[ '("bus-type", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("get-proxy-type-destroy-notify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("get-proxy-type-func", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("get-proxy-type-user-data", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("name-owner", DBusObjectManagerClientNameOwnerPropertyInfo), '("object-path", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)]) +type DBusObjectManagerClientAttributeList = ('[ '("busType", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("getProxyTypeDestroyNotify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("getProxyTypeFunc", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("getProxyTypeUserData", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("nameOwner", DBusObjectManagerClientNameOwnerPropertyInfo), '("objectPath", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)]) data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where @@ -484,13 +533,12 @@ connectSignal _ = connectDBusObjectManagerClientInterfaceProxySignal type instance SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList -type DBusObjectManagerClientSignalList = ('[ '("interface-added", DBusObjectManagerInterfaceAddedSignalInfo), '("interface-proxy-properties-changed", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interface-proxy-signal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interface-removed", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("object-added", DBusObjectManagerObjectAddedSignalInfo), '("object-removed", DBusObjectManagerObjectRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerClient" -- throws : True -- Skip return : False @@ -503,8 +551,8 @@ dBusObjectManagerClientNewFinish :: (MonadIO m, AsyncResultK a) => - a -> -- res - m DBusObjectManagerClient + a -- res + -> m DBusObjectManagerClient -- result dBusObjectManagerClientNewFinish res = liftIO $ do let res' = unsafeManagedPtrCastPtr res onException (do @@ -519,9 +567,8 @@ -- method DBusObjectManagerClient::new_for_bus_finish -- method type : Constructor --- Args : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerClient" -- throws : True -- Skip return : False @@ -534,8 +581,8 @@ dBusObjectManagerClientNewForBusFinish :: (MonadIO m, AsyncResultK a) => - a -> -- res - m DBusObjectManagerClient + a -- res + -> m DBusObjectManagerClient -- result dBusObjectManagerClientNewForBusFinish res = liftIO $ do let res' = unsafeManagedPtrCastPtr res onException (do @@ -550,9 +597,8 @@ -- method DBusObjectManagerClient::new_for_bus_sync -- method type : Constructor --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "get_proxy_type_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerClient" -- throws : True -- Skip return : False @@ -572,48 +618,47 @@ dBusObjectManagerClientNewForBusSync :: (MonadIO m, CancellableK a) => - BusType -> -- bus_type - [DBusObjectManagerClientFlags] -> -- flags - T.Text -> -- name - T.Text -> -- object_path - Maybe (DBusProxyTypeFunc) -> -- get_proxy_type_func - Maybe (a) -> -- cancellable - m DBusObjectManagerClient -dBusObjectManagerClientNewForBusSync bus_type flags name object_path get_proxy_type_func_ cancellable = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type + 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 - object_path' <- textToCString object_path - maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of + objectPath' <- textToCString objectPath + maybeGetProxyTypeFunc <- case getProxyTypeFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jGet_proxy_type_func_ -> do - jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_) - return jGet_proxy_type_func_' + 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 get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_ - let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr + let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc + let getProxyTypeDestroyNotify = safeFreeFunPtrPtr onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_sync bus_type' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable + 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 object_path' + freeMem objectPath' return result' ) (do freeMem name' - freeMem object_path' + freeMem objectPath' ) -- method DBusObjectManagerClient::new_sync -- method type : Constructor --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "get_proxy_type_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerClient" -- throws : True -- Skip return : False @@ -633,14 +678,14 @@ dBusObjectManagerClientNewSync :: (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- connection - [DBusObjectManagerClientFlags] -> -- flags - Maybe (T.Text) -> -- name - T.Text -> -- object_path - Maybe (DBusProxyTypeFunc) -> -- get_proxy_type_func - Maybe (b) -> -- cancellable - m DBusObjectManagerClient -dBusObjectManagerClientNewSync connection flags name object_path get_proxy_type_func_ cancellable = liftIO $ do + 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 @@ -648,38 +693,37 @@ Just jName -> do jName' <- textToCString jName return jName' - object_path' <- textToCString object_path - maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of + objectPath' <- textToCString objectPath + maybeGetProxyTypeFunc <- case getProxyTypeFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jGet_proxy_type_func_ -> do - jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_) - return jGet_proxy_type_func_' + 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 get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_ - let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr + let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc + let getProxyTypeDestroyNotify = safeFreeFunPtrPtr onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_sync connection' flags' maybeName object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable + 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 object_path' + freeMem objectPath' return result' ) (do freeMem maybeName - freeMem object_path' + freeMem objectPath' ) -- method DBusObjectManagerClient::get_connection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -691,8 +735,8 @@ dBusObjectManagerClientGetConnection :: (MonadIO m, DBusObjectManagerClientK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusObjectManagerClientGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_client_get_connection _obj' @@ -701,11 +745,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerClientFlags" -- throws : False -- Skip return : False @@ -717,8 +764,8 @@ dBusObjectManagerClientGetFlags :: (MonadIO m, DBusObjectManagerClientK a) => - a -> -- _obj - m [DBusObjectManagerClientFlags] + a -- _obj + -> m [DBusObjectManagerClientFlags] -- result dBusObjectManagerClientGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_client_get_flags _obj' @@ -726,11 +773,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -742,8 +792,8 @@ dBusObjectManagerClientGetName :: (MonadIO m, DBusObjectManagerClientK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusObjectManagerClientGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_client_get_name _obj' @@ -752,11 +802,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -768,8 +821,8 @@ dBusObjectManagerClientGetNameOwner :: (MonadIO m, DBusObjectManagerClientK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusObjectManagerClientGetNameOwner _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_client_get_name_owner _obj' @@ -779,11 +832,14 @@ touchManagedPtr _obj return result' +data DBusObjectManagerClientGetNameOwnerMethodInfo +instance (signature ~ (m T.Text), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a signature where + overloadedMethod _ = dBusObjectManagerClientGetNameOwner + -- method DBusObjectManagerClient::new -- method type : MemberFunction --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "get_proxy_type_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -804,24 +860,24 @@ dBusObjectManagerClientNew :: (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- connection - [DBusObjectManagerClientFlags] -> -- flags - T.Text -> -- name - T.Text -> -- object_path - Maybe (DBusProxyTypeFunc) -> -- get_proxy_type_func - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusObjectManagerClientNew connection flags name object_path get_proxy_type_func_ cancellable callback = liftIO $ do + 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 - object_path' <- textToCString object_path - maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of + objectPath' <- textToCString objectPath + maybeGetProxyTypeFunc <- case getProxyTypeFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jGet_proxy_type_func_ -> do - jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_) - return jGet_proxy_type_func_' + Just jGetProxyTypeFunc -> do + jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) + return jGetProxyTypeFunc' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -834,21 +890,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_ - let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr - let user_data = nullPtr - g_dbus_object_manager_client_new connection' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable maybeCallback user_data + 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 object_path' + freeMem objectPath' return () -- method DBusObjectManagerClient::new_for_bus -- method type : MemberFunction --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "get_proxy_type_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -869,24 +924,24 @@ dBusObjectManagerClientNewForBus :: (MonadIO m, CancellableK a) => - BusType -> -- bus_type - [DBusObjectManagerClientFlags] -> -- flags - T.Text -> -- name - T.Text -> -- object_path - Maybe (DBusProxyTypeFunc) -> -- get_proxy_type_func - Maybe (a) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusObjectManagerClientNewForBus bus_type flags name object_path get_proxy_type_func_ cancellable callback = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type + 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 - object_path' <- textToCString object_path - maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of + objectPath' <- textToCString objectPath + maybeGetProxyTypeFunc <- case getProxyTypeFunc of Nothing -> return (castPtrToFunPtr nullPtr) - Just jGet_proxy_type_func_ -> do - jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_) - return jGet_proxy_type_func_' + Just jGetProxyTypeFunc -> do + jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) + return jGetProxyTypeFunc' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -899,13 +954,13 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_ - let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr - let user_data = nullPtr - g_dbus_object_manager_client_new_for_bus bus_type' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable maybeCallback user_data + 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 object_path' + freeMem objectPath' return () diff --git a/GI/Gio/Objects/DBusObjectManagerClient.hs-boot b/GI/Gio/Objects/DBusObjectManagerClient.hs-boot --- a/GI/Gio/Objects/DBusObjectManagerClient.hs-boot +++ b/GI/Gio/Objects/DBusObjectManagerClient.hs-boot @@ -22,3 +22,7 @@ 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 --- a/GI/Gio/Objects/DBusObjectManagerServer.hs +++ b/GI/Gio/Objects/DBusObjectManagerServer.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** dBusObjectManagerServerExport + DBusObjectManagerServerExportMethodInfo , dBusObjectManagerServerExport , -- ** dBusObjectManagerServerExportUniquely + DBusObjectManagerServerExportUniquelyMethodInfo, dBusObjectManagerServerExportUniquely , -- ** dBusObjectManagerServerGetConnection + DBusObjectManagerServerGetConnectionMethodInfo, dBusObjectManagerServerGetConnection , -- ** dBusObjectManagerServerIsExported + DBusObjectManagerServerIsExportedMethodInfo, dBusObjectManagerServerIsExported , @@ -37,10 +42,12 @@ -- ** dBusObjectManagerServerSetConnection + DBusObjectManagerServerSetConnectionMethodInfo, dBusObjectManagerServerSetConnection , -- ** dBusObjectManagerServerUnexport + DBusObjectManagerServerUnexportMethodInfo, dBusObjectManagerServerUnexport , @@ -96,6 +103,49 @@ 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] @@ -115,7 +165,7 @@ type AttrSetTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusConnectionK type AttrBaseTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusObjectManagerServerK type AttrGetType DBusObjectManagerServerConnectionPropertyInfo = DBusConnection - type AttrLabel DBusObjectManagerServerConnectionPropertyInfo = "DBusObjectManagerServer::connection" + type AttrLabel DBusObjectManagerServerConnectionPropertyInfo = "connection" attrGet _ = getDBusObjectManagerServerConnection attrSet _ = setDBusObjectManagerServerConnection attrConstruct _ = constructDBusObjectManagerServerConnection @@ -136,22 +186,21 @@ type AttrSetTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = DBusObjectManagerServerK type AttrGetType DBusObjectManagerServerObjectPathPropertyInfo = T.Text - type AttrLabel DBusObjectManagerServerObjectPathPropertyInfo = "DBusObjectManagerServer::object-path" + type AttrLabel DBusObjectManagerServerObjectPathPropertyInfo = "object-path" attrGet _ = getDBusObjectManagerServerObjectPath attrSet _ = undefined attrConstruct _ = constructDBusObjectManagerServerObjectPath type instance AttributeList DBusObjectManagerServer = DBusObjectManagerServerAttributeList -type DBusObjectManagerServerAttributeList = ('[ '("connection", DBusObjectManagerServerConnectionPropertyInfo), '("object-path", DBusObjectManagerServerObjectPathPropertyInfo)] :: [(Symbol, *)]) +type DBusObjectManagerServerAttributeList = ('[ '("connection", DBusObjectManagerServerConnectionPropertyInfo), '("objectPath", DBusObjectManagerServerObjectPathPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DBusObjectManagerServer = DBusObjectManagerServerSignalList -type DBusObjectManagerServerSignalList = ('[ '("interface-added", DBusObjectManagerInterfaceAddedSignalInfo), '("interface-removed", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("object-added", DBusObjectManagerObjectAddedSignalInfo), '("object-removed", DBusObjectManagerObjectRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusObjectManagerServerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)]) -- method DBusObjectManagerServer::new -- method type : Constructor --- Args : [Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectManagerServer" -- throws : False -- Skip return : False @@ -163,21 +212,20 @@ dBusObjectManagerServerNew :: (MonadIO m) => - T.Text -> -- object_path - m DBusObjectManagerServer -dBusObjectManagerServerNew object_path = liftIO $ do - object_path' <- textToCString object_path - result <- g_dbus_object_manager_server_new object_path' + 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 object_path' + freeMem objectPath' return result' -- method DBusObjectManagerServer::export -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -190,9 +238,9 @@ dBusObjectManagerServerExport :: (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -> -- _obj - b -> -- object - m () + a -- _obj + -> b -- object + -> m () -- result dBusObjectManagerServerExport _obj object = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let object' = unsafeManagedPtrCastPtr object @@ -201,11 +249,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -218,9 +269,9 @@ dBusObjectManagerServerExportUniquely :: (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -> -- _obj - b -> -- object - m () + a -- _obj + -> b -- object + -> m () -- result dBusObjectManagerServerExportUniquely _obj object = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let object' = unsafeManagedPtrCastPtr object @@ -229,11 +280,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -245,8 +299,8 @@ dBusObjectManagerServerGetConnection :: (MonadIO m, DBusObjectManagerServerK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusObjectManagerServerGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_manager_server_get_connection _obj' @@ -255,11 +309,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -272,9 +329,9 @@ dBusObjectManagerServerIsExported :: (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -> -- _obj - b -> -- object - m Bool + a -- _obj + -> b -- object + -> m Bool -- result dBusObjectManagerServerIsExported _obj object = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let object' = unsafeManagedPtrCastPtr object @@ -284,11 +341,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -301,9 +361,9 @@ dBusObjectManagerServerSetConnection :: (MonadIO m, DBusObjectManagerServerK a, DBusConnectionK b) => - a -> -- _obj - Maybe (b) -> -- connection - m () + a -- _obj + -> Maybe (b) -- connection + -> m () -- result dBusObjectManagerServerSetConnection _obj connection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeConnection <- case connection of @@ -316,11 +376,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -333,16 +396,20 @@ dBusObjectManagerServerUnexport :: (MonadIO m, DBusObjectManagerServerK a) => - a -> -- _obj - T.Text -> -- object_path - m Bool -dBusObjectManagerServerUnexport _obj object_path = liftIO $ do + a -- _obj + -> T.Text -- objectPath + -> m Bool -- result +dBusObjectManagerServerUnexport _obj objectPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - result <- g_dbus_object_manager_server_unexport _obj' object_path' + objectPath' <- textToCString objectPath + result <- g_dbus_object_manager_server_unexport _obj' objectPath' let result' = (/= 0) result touchManagedPtr _obj - freeMem object_path' + 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 --- a/GI/Gio/Objects/DBusObjectManagerServer.hs-boot +++ b/GI/Gio/Objects/DBusObjectManagerServer.hs-boot @@ -13,3 +13,9 @@ 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 --- a/GI/Gio/Objects/DBusObjectProxy.hs +++ b/GI/Gio/Objects/DBusObjectProxy.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** dBusObjectProxyGetConnection + DBusObjectProxyGetConnectionMethodInfo , dBusObjectProxyGetConnection , @@ -75,6 +77,43 @@ 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] @@ -91,7 +130,7 @@ type AttrSetTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusConnectionK type AttrBaseTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusObjectProxyK type AttrGetType DBusObjectProxyGConnectionPropertyInfo = DBusConnection - type AttrLabel DBusObjectProxyGConnectionPropertyInfo = "DBusObjectProxy::g-connection" + type AttrLabel DBusObjectProxyGConnectionPropertyInfo = "g-connection" attrGet _ = getDBusObjectProxyGConnection attrSet _ = undefined attrConstruct _ = constructDBusObjectProxyGConnection @@ -112,22 +151,21 @@ type AttrSetTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = DBusObjectProxyK type AttrGetType DBusObjectProxyGObjectPathPropertyInfo = T.Text - type AttrLabel DBusObjectProxyGObjectPathPropertyInfo = "DBusObjectProxy::g-object-path" + type AttrLabel DBusObjectProxyGObjectPathPropertyInfo = "g-object-path" attrGet _ = getDBusObjectProxyGObjectPath attrSet _ = undefined attrConstruct _ = constructDBusObjectProxyGObjectPath type instance AttributeList DBusObjectProxy = DBusObjectProxyAttributeList -type DBusObjectProxyAttributeList = ('[ '("g-connection", DBusObjectProxyGConnectionPropertyInfo), '("g-object-path", DBusObjectProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) +type DBusObjectProxyAttributeList = ('[ '("gConnection", DBusObjectProxyGConnectionPropertyInfo), '("gObjectPath", DBusObjectProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DBusObjectProxy = DBusObjectProxySignalList -type DBusObjectProxySignalList = ('[ '("interface-added", DBusObjectInterfaceAddedSignalInfo), '("interface-removed", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusObjectProxySignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusObjectProxy::new -- method type : Constructor --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectProxy" -- throws : False -- Skip return : False @@ -140,24 +178,23 @@ dBusObjectProxyNew :: (MonadIO m, DBusConnectionK a) => - a -> -- connection - T.Text -> -- object_path - m DBusObjectProxy -dBusObjectProxyNew connection object_path = liftIO $ do + a -- connection + -> T.Text -- objectPath + -> m DBusObjectProxy -- result +dBusObjectProxyNew connection objectPath = liftIO $ do let connection' = unsafeManagedPtrCastPtr connection - object_path' <- textToCString object_path - result <- g_dbus_object_proxy_new connection' object_path' + 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 object_path' + freeMem objectPath' return result' -- method DBusObjectProxy::get_connection -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -169,8 +206,8 @@ dBusObjectProxyGetConnection :: (MonadIO m, DBusObjectProxyK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusObjectProxyGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_object_proxy_get_connection _obj' @@ -178,5 +215,9 @@ 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 --- a/GI/Gio/Objects/DBusObjectProxy.hs-boot +++ b/GI/Gio/Objects/DBusObjectProxy.hs-boot @@ -13,3 +13,4 @@ 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 --- a/GI/Gio/Objects/DBusObjectSkeleton.hs +++ b/GI/Gio/Objects/DBusObjectSkeleton.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** dBusObjectSkeletonAddInterface + DBusObjectSkeletonAddInterfaceMethodInfo, dBusObjectSkeletonAddInterface , -- ** dBusObjectSkeletonFlush + DBusObjectSkeletonFlushMethodInfo , dBusObjectSkeletonFlush , @@ -29,14 +32,17 @@ -- ** dBusObjectSkeletonRemoveInterface + DBusObjectSkeletonRemoveInterfaceMethodInfo, dBusObjectSkeletonRemoveInterface , -- ** dBusObjectSkeletonRemoveInterfaceByName + DBusObjectSkeletonRemoveInterfaceByNameMethodInfo, dBusObjectSkeletonRemoveInterfaceByName , -- ** dBusObjectSkeletonSetObjectPath + DBusObjectSkeletonSetObjectPathMethodInfo, dBusObjectSkeletonSetObjectPath , @@ -101,6 +107,47 @@ 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 -> @@ -168,13 +215,13 @@ type AttrSetTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = DBusObjectSkeletonK type AttrGetType DBusObjectSkeletonGObjectPathPropertyInfo = T.Text - type AttrLabel DBusObjectSkeletonGObjectPathPropertyInfo = "DBusObjectSkeleton::g-object-path" + type AttrLabel DBusObjectSkeletonGObjectPathPropertyInfo = "g-object-path" attrGet _ = getDBusObjectSkeletonGObjectPath attrSet _ = setDBusObjectSkeletonGObjectPath attrConstruct _ = constructDBusObjectSkeletonGObjectPath type instance AttributeList DBusObjectSkeleton = DBusObjectSkeletonAttributeList -type DBusObjectSkeletonAttributeList = ('[ '("g-object-path", DBusObjectSkeletonGObjectPathPropertyInfo)] :: [(Symbol, *)]) +type DBusObjectSkeletonAttributeList = ('[ '("gObjectPath", DBusObjectSkeletonGObjectPathPropertyInfo)] :: [(Symbol, *)]) data DBusObjectSkeletonAuthorizeMethodSignalInfo instance SignalInfo DBusObjectSkeletonAuthorizeMethodSignalInfo where @@ -182,13 +229,12 @@ connectSignal _ = connectDBusObjectSkeletonAuthorizeMethod type instance SignalList DBusObjectSkeleton = DBusObjectSkeletonSignalList -type DBusObjectSkeletonSignalList = ('[ '("authorize-method", DBusObjectSkeletonAuthorizeMethodSignalInfo), '("interface-added", DBusObjectInterfaceAddedSignalInfo), '("interface-removed", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusObjectSkeletonSignalList = ('[ '("authorizeMethod", DBusObjectSkeletonAuthorizeMethodSignalInfo), '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusObjectSkeleton::new -- method type : Constructor --- Args : [Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusObjectSkeleton" -- throws : False -- Skip return : False @@ -200,21 +246,20 @@ dBusObjectSkeletonNew :: (MonadIO m) => - T.Text -> -- object_path - m DBusObjectSkeleton -dBusObjectSkeletonNew object_path = liftIO $ do - object_path' <- textToCString object_path - result <- g_dbus_object_skeleton_new object_path' + 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 object_path' + freeMem objectPath' return result' -- method DBusObjectSkeleton::add_interface -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -227,22 +272,25 @@ dBusObjectSkeletonAddInterface :: (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => - a -> -- _obj - b -> -- interface_ - m () -dBusObjectSkeletonAddInterface _obj interface_ = liftIO $ do + 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_' + let interface' = unsafeManagedPtrCastPtr interface + g_dbus_object_skeleton_add_interface _obj' interface' touchManagedPtr _obj - touchManagedPtr interface_ + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -254,19 +302,22 @@ dBusObjectSkeletonFlush :: (MonadIO m, DBusObjectSkeletonK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -279,22 +330,25 @@ dBusObjectSkeletonRemoveInterface :: (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => - a -> -- _obj - b -> -- interface_ - m () -dBusObjectSkeletonRemoveInterface _obj interface_ = liftIO $ do + 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_' + let interface' = unsafeManagedPtrCastPtr interface + g_dbus_object_skeleton_remove_interface _obj' interface' touchManagedPtr _obj - touchManagedPtr interface_ + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -307,22 +361,25 @@ dBusObjectSkeletonRemoveInterfaceByName :: (MonadIO m, DBusObjectSkeletonK a) => - a -> -- _obj - T.Text -> -- interface_name - m () -dBusObjectSkeletonRemoveInterfaceByName _obj interface_name = liftIO $ do + a -- _obj + -> T.Text -- interfaceName + -> m () -- result +dBusObjectSkeletonRemoveInterfaceByName _obj interfaceName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - interface_name' <- textToCString interface_name - g_dbus_object_skeleton_remove_interface_by_name _obj' interface_name' + interfaceName' <- textToCString interfaceName + g_dbus_object_skeleton_remove_interface_by_name _obj' interfaceName' touchManagedPtr _obj - freeMem interface_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -335,15 +392,19 @@ dBusObjectSkeletonSetObjectPath :: (MonadIO m, DBusObjectSkeletonK a) => - a -> -- _obj - T.Text -> -- object_path - m () -dBusObjectSkeletonSetObjectPath _obj object_path = liftIO $ do + a -- _obj + -> T.Text -- objectPath + -> m () -- result +dBusObjectSkeletonSetObjectPath _obj objectPath = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - object_path' <- textToCString object_path - g_dbus_object_skeleton_set_object_path _obj' object_path' + objectPath' <- textToCString objectPath + g_dbus_object_skeleton_set_object_path _obj' objectPath' touchManagedPtr _obj - freeMem object_path' + 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 --- a/GI/Gio/Objects/DBusObjectSkeleton.hs-boot +++ b/GI/Gio/Objects/DBusObjectSkeleton.hs-boot @@ -13,3 +13,8 @@ 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 --- a/GI/Gio/Objects/DBusProxy.hs +++ b/GI/Gio/Objects/DBusProxy.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,66 +18,82 @@ -- * 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 , @@ -105,14 +122,17 @@ -- ** dBusProxySetCachedProperty + DBusProxySetCachedPropertyMethodInfo , dBusProxySetCachedProperty , -- ** dBusProxySetDefaultTimeout + DBusProxySetDefaultTimeoutMethodInfo , dBusProxySetDefaultTimeout , -- ** dBusProxySetInterfaceInfo + DBusProxySetInterfaceInfoMethodInfo , dBusProxySetInterfaceInfo , @@ -236,6 +256,64 @@ 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 -> @@ -266,10 +344,10 @@ Ptr CString -> Ptr () -> IO () -dBusProxyGPropertiesChangedCallbackWrapper _cb _ changed_properties invalidated_properties _ = do - changed_properties' <- newGVariantFromPtr changed_properties - invalidated_properties' <- unpackZeroTerminatedUTF8CArray invalidated_properties - _cb changed_properties' invalidated_properties' +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 @@ -315,16 +393,16 @@ Ptr GVariant -> Ptr () -> IO () -dBusProxyGSignalCallbackWrapper _cb _ sender_name signal_name parameters _ = do - maybeSender_name <- - if sender_name == nullPtr +dBusProxyGSignalCallbackWrapper _cb _ senderName signalName parameters _ = do + maybeSenderName <- + if senderName == nullPtr then return Nothing else do - sender_name' <- cstringToText sender_name - return $ Just sender_name' - signal_name' <- cstringToText signal_name + senderName' <- cstringToText senderName + return $ Just senderName' + signalName' <- cstringToText signalName parameters' <- newGVariantFromPtr parameters - _cb maybeSender_name signal_name' parameters' + _cb maybeSenderName signalName' parameters' onDBusProxyGSignal :: (GObject a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId onDBusProxyGSignal obj cb = liftIO $ connectDBusProxyGSignal obj cb SignalConnectBefore @@ -350,7 +428,7 @@ type AttrSetTypeConstraint DBusProxyGBusTypePropertyInfo = (~) BusType type AttrBaseTypeConstraint DBusProxyGBusTypePropertyInfo = DBusProxyK type AttrGetType DBusProxyGBusTypePropertyInfo = () - type AttrLabel DBusProxyGBusTypePropertyInfo = "DBusProxy::g-bus-type" + type AttrLabel DBusProxyGBusTypePropertyInfo = "g-bus-type" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructDBusProxyGBusType @@ -371,7 +449,7 @@ type AttrSetTypeConstraint DBusProxyGConnectionPropertyInfo = DBusConnectionK type AttrBaseTypeConstraint DBusProxyGConnectionPropertyInfo = DBusProxyK type AttrGetType DBusProxyGConnectionPropertyInfo = DBusConnection - type AttrLabel DBusProxyGConnectionPropertyInfo = "DBusProxy::g-connection" + type AttrLabel DBusProxyGConnectionPropertyInfo = "g-connection" attrGet _ = getDBusProxyGConnection attrSet _ = undefined attrConstruct _ = constructDBusProxyGConnection @@ -395,7 +473,7 @@ type AttrSetTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32 type AttrBaseTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = DBusProxyK type AttrGetType DBusProxyGDefaultTimeoutPropertyInfo = Int32 - type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "DBusProxy::g-default-timeout" + type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "g-default-timeout" attrGet _ = getDBusProxyGDefaultTimeout attrSet _ = setDBusProxyGDefaultTimeout attrConstruct _ = constructDBusProxyGDefaultTimeout @@ -416,7 +494,7 @@ type AttrSetTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [DBusProxyFlags] type AttrBaseTypeConstraint DBusProxyGFlagsPropertyInfo = DBusProxyK type AttrGetType DBusProxyGFlagsPropertyInfo = [DBusProxyFlags] - type AttrLabel DBusProxyGFlagsPropertyInfo = "DBusProxy::g-flags" + type AttrLabel DBusProxyGFlagsPropertyInfo = "g-flags" attrGet _ = getDBusProxyGFlags attrSet _ = undefined attrConstruct _ = constructDBusProxyGFlags @@ -440,7 +518,7 @@ type AttrSetTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) DBusInterfaceInfo type AttrBaseTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = DBusProxyK type AttrGetType DBusProxyGInterfaceInfoPropertyInfo = DBusInterfaceInfo - type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "DBusProxy::g-interface-info" + type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "g-interface-info" attrGet _ = getDBusProxyGInterfaceInfo attrSet _ = setDBusProxyGInterfaceInfo attrConstruct _ = constructDBusProxyGInterfaceInfo @@ -461,7 +539,7 @@ type AttrSetTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusProxyGInterfaceNamePropertyInfo = DBusProxyK type AttrGetType DBusProxyGInterfaceNamePropertyInfo = T.Text - type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "DBusProxy::g-interface-name" + type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "g-interface-name" attrGet _ = getDBusProxyGInterfaceName attrSet _ = undefined attrConstruct _ = constructDBusProxyGInterfaceName @@ -482,7 +560,7 @@ type AttrSetTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusProxyGNamePropertyInfo = DBusProxyK type AttrGetType DBusProxyGNamePropertyInfo = T.Text - type AttrLabel DBusProxyGNamePropertyInfo = "DBusProxy::g-name" + type AttrLabel DBusProxyGNamePropertyInfo = "g-name" attrGet _ = getDBusProxyGName attrSet _ = undefined attrConstruct _ = constructDBusProxyGName @@ -500,7 +578,7 @@ type AttrSetTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) () type AttrBaseTypeConstraint DBusProxyGNameOwnerPropertyInfo = DBusProxyK type AttrGetType DBusProxyGNameOwnerPropertyInfo = T.Text - type AttrLabel DBusProxyGNameOwnerPropertyInfo = "DBusProxy::g-name-owner" + type AttrLabel DBusProxyGNameOwnerPropertyInfo = "g-name-owner" attrGet _ = getDBusProxyGNameOwner attrSet _ = undefined attrConstruct _ = undefined @@ -521,13 +599,13 @@ type AttrSetTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusProxyGObjectPathPropertyInfo = DBusProxyK type AttrGetType DBusProxyGObjectPathPropertyInfo = T.Text - type AttrLabel DBusProxyGObjectPathPropertyInfo = "DBusProxy::g-object-path" + type AttrLabel DBusProxyGObjectPathPropertyInfo = "g-object-path" attrGet _ = getDBusProxyGObjectPath attrSet _ = undefined attrConstruct _ = constructDBusProxyGObjectPath type instance AttributeList DBusProxy = DBusProxyAttributeList -type DBusProxyAttributeList = ('[ '("g-bus-type", DBusProxyGBusTypePropertyInfo), '("g-connection", DBusProxyGConnectionPropertyInfo), '("g-default-timeout", DBusProxyGDefaultTimeoutPropertyInfo), '("g-flags", DBusProxyGFlagsPropertyInfo), '("g-interface-info", DBusProxyGInterfaceInfoPropertyInfo), '("g-interface-name", DBusProxyGInterfaceNamePropertyInfo), '("g-name", DBusProxyGNamePropertyInfo), '("g-name-owner", DBusProxyGNameOwnerPropertyInfo), '("g-object-path", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) +type DBusProxyAttributeList = ('[ '("gBusType", DBusProxyGBusTypePropertyInfo), '("gConnection", DBusProxyGConnectionPropertyInfo), '("gDefaultTimeout", DBusProxyGDefaultTimeoutPropertyInfo), '("gFlags", DBusProxyGFlagsPropertyInfo), '("gInterfaceInfo", DBusProxyGInterfaceInfoPropertyInfo), '("gInterfaceName", DBusProxyGInterfaceNamePropertyInfo), '("gName", DBusProxyGNamePropertyInfo), '("gNameOwner", DBusProxyGNameOwnerPropertyInfo), '("gObjectPath", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) data DBusProxyGPropertiesChangedSignalInfo instance SignalInfo DBusProxyGPropertiesChangedSignalInfo where @@ -540,13 +618,12 @@ connectSignal _ = connectDBusProxyGSignal type instance SignalList DBusProxy = DBusProxySignalList -type DBusProxySignalList = ('[ '("g-properties-changed", DBusProxyGPropertiesChangedSignalInfo), '("g-signal", DBusProxyGSignalSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusProxySignalList = ('[ '("gPropertiesChanged", DBusProxyGPropertiesChangedSignalInfo), '("gSignal", DBusProxyGSignalSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusProxy::new_finish -- method type : Constructor --- Args : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusProxy" -- throws : True -- Skip return : False @@ -559,8 +636,8 @@ dBusProxyNewFinish :: (MonadIO m, AsyncResultK a) => - a -> -- res - m DBusProxy + a -- res + -> m DBusProxy -- result dBusProxyNewFinish res = liftIO $ do let res' = unsafeManagedPtrCastPtr res onException (do @@ -575,9 +652,8 @@ -- method DBusProxy::new_for_bus_finish -- method type : Constructor --- Args : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusProxy" -- throws : True -- Skip return : False @@ -590,8 +666,8 @@ dBusProxyNewForBusFinish :: (MonadIO m, AsyncResultK a) => - a -> -- res - m DBusProxy + a -- res + -> m DBusProxy -- result dBusProxyNewForBusFinish res = liftIO $ do let res' = unsafeManagedPtrCastPtr res onException (do @@ -606,9 +682,8 @@ -- method DBusProxy::new_for_bus_sync -- method type : Constructor --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusProxy" -- throws : True -- Skip return : False @@ -627,16 +702,16 @@ dBusProxyNewForBusSync :: (MonadIO m, CancellableK a) => - BusType -> -- bus_type - [DBusProxyFlags] -> -- flags - Maybe (DBusInterfaceInfo) -> -- info - T.Text -> -- name - T.Text -> -- object_path - T.Text -> -- interface_name - Maybe (a) -> -- cancellable - m DBusProxy -dBusProxyNewForBusSync bus_type flags info name object_path interface_name cancellable = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type + 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 @@ -644,34 +719,33 @@ let jInfo' = unsafeManagedPtrGetPtr jInfo return jInfo' name' <- textToCString name - object_path' <- textToCString object_path - interface_name' <- textToCString interface_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 bus_type' flags' maybeInfo name' object_path' interface_name' maybeCancellable + 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 object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' return result' ) (do freeMem name' - freeMem object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' ) -- method DBusProxy::new_sync -- method type : Constructor --- Args : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusProxy" -- throws : True -- Skip return : False @@ -690,15 +764,15 @@ dBusProxyNewSync :: (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- connection - [DBusProxyFlags] -> -- flags - Maybe (DBusInterfaceInfo) -> -- info - Maybe (T.Text) -> -- name - T.Text -> -- object_path - T.Text -> -- interface_name - Maybe (b) -> -- cancellable - m DBusProxy -dBusProxyNewSync connection flags info name object_path interface_name cancellable = liftIO $ do + 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 @@ -711,35 +785,34 @@ Just jName -> do jName' <- textToCString jName return jName' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_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_sync connection' flags' maybeInfo maybeName object_path' interface_name' maybeCancellable + 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 object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' return result' ) (do freeMem maybeName - freeMem object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' ) -- method DBusProxy::call -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -758,17 +831,17 @@ dBusProxyCall :: (MonadIO m, DBusProxyK a, CancellableK b) => - a -> -- _obj - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusProxyCall _obj method_name parameters flags timeout_msec cancellable callback = liftIO $ do + 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 - method_name' <- textToCString method_name + methodName' <- textToCString methodName maybeParameters <- case parameters of Nothing -> return nullPtr Just jParameters -> do @@ -787,18 +860,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_dbus_proxy_call _obj' method_name' maybeParameters flags' timeout_msec maybeCancellable maybeCallback user_data + let userData = nullPtr + g_dbus_proxy_call _obj' methodName' maybeParameters flags' timeoutMsec maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem method_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : True -- Skip return : False @@ -812,9 +888,9 @@ dBusProxyCallFinish :: (MonadIO m, DBusProxyK a, AsyncResultK b) => - a -> -- _obj - b -> -- res - m GVariant + a -- _obj + -> b -- res + -> m GVariant -- result dBusProxyCallFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let res' = unsafeManagedPtrCastPtr res @@ -829,11 +905,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : True -- Skip return : False @@ -851,16 +930,16 @@ dBusProxyCallSync :: (MonadIO m, DBusProxyK a, CancellableK b) => - a -> -- _obj - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- cancellable - m GVariant -dBusProxyCallSync _obj method_name parameters flags timeout_msec cancellable = liftIO $ do + 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 - method_name' <- textToCString method_name + methodName' <- textToCString methodName maybeParameters <- case parameters of Nothing -> return nullPtr Just jParameters -> do @@ -873,22 +952,25 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_dbus_proxy_call_sync _obj' method_name' maybeParameters flags' timeout_msec maybeCancellable + 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 method_name' + freeMem methodName' return result' ) (do - freeMem method_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -908,29 +990,29 @@ dBusProxyCallWithUnixFdList :: (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => - a -> -- _obj - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- fd_list - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusProxyCallWithUnixFdList _obj method_name parameters flags timeout_msec fd_list cancellable callback = liftIO $ do + 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 - method_name' <- textToCString method_name + methodName' <- textToCString methodName maybeParameters <- case parameters of Nothing -> return nullPtr Just jParameters -> do let jParameters' = unsafeManagedPtrGetPtr jParameters return jParameters' let flags' = gflagsToWord flags - maybeFd_list <- case fd_list of + maybeFdList <- case fdList of Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' + Just jFdList -> do + let jFdList' = unsafeManagedPtrCastPtr jFdList + return jFdList' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -943,19 +1025,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_dbus_proxy_call_with_unix_fd_list _obj' method_name' maybeParameters flags' timeout_msec maybeFd_list maybeCancellable maybeCallback user_data + let userData = nullPtr + g_dbus_proxy_call_with_unix_fd_list _obj' methodName' maybeParameters flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust fd_list touchManagedPtr + whenJust fdList touchManagedPtr whenJust cancellable touchManagedPtr - freeMem method_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : True -- Skip return : False @@ -970,32 +1055,35 @@ dBusProxyCallWithUnixFdListFinish :: (MonadIO m, DBusProxyK a, AsyncResultK b) => - a -> -- _obj - b -> -- res - m (GVariant,UnixFDList) + a -- _obj + -> b -- res + -> m (GVariant,UnixFDList) -- result dBusProxyCallWithUnixFdListFinish _obj res = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - out_fd_list <- allocMem :: IO (Ptr (Ptr UnixFDList)) + outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList)) let res' = unsafeManagedPtrCastPtr res onException (do - result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_finish _obj' out_fd_list res' + 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 - out_fd_list' <- peek out_fd_list - out_fd_list'' <- (wrapObject UnixFDList) out_fd_list' + outFdList' <- peek outFdList + outFdList'' <- (wrapObject UnixFDList) outFdList' touchManagedPtr _obj touchManagedPtr res - freeMem out_fd_list - return (result', out_fd_list'') + freeMem outFdList + return (result', outFdList'') ) (do - freeMem out_fd_list + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : True -- Skip return : False @@ -1015,56 +1103,59 @@ dBusProxyCallWithUnixFdListSync :: (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => - a -> -- _obj - T.Text -> -- method_name - Maybe (GVariant) -> -- parameters - [DBusCallFlags] -> -- flags - Int32 -> -- timeout_msec - Maybe (b) -> -- fd_list - Maybe (c) -> -- cancellable - m (GVariant,UnixFDList) -dBusProxyCallWithUnixFdListSync _obj method_name parameters flags timeout_msec fd_list cancellable = liftIO $ do + 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 - method_name' <- textToCString method_name + methodName' <- textToCString methodName maybeParameters <- case parameters of Nothing -> return nullPtr Just jParameters -> do let jParameters' = unsafeManagedPtrGetPtr jParameters return jParameters' let flags' = gflagsToWord flags - maybeFd_list <- case fd_list of + maybeFdList <- case fdList of Nothing -> return nullPtr - Just jFd_list -> do - let jFd_list' = unsafeManagedPtrCastPtr jFd_list - return jFd_list' - out_fd_list <- allocMem :: IO (Ptr (Ptr UnixFDList)) + 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' method_name' maybeParameters flags' timeout_msec maybeFd_list out_fd_list maybeCancellable + 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 - out_fd_list' <- peek out_fd_list - out_fd_list'' <- (wrapObject UnixFDList) out_fd_list' + outFdList' <- peek outFdList + outFdList'' <- (wrapObject UnixFDList) outFdList' touchManagedPtr _obj - whenJust fd_list touchManagedPtr + whenJust fdList touchManagedPtr whenJust cancellable touchManagedPtr - freeMem method_name' - freeMem out_fd_list - return (result', out_fd_list'') + freeMem methodName' + freeMem outFdList + return (result', outFdList'') ) (do - freeMem method_name' - freeMem out_fd_list + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -1077,24 +1168,27 @@ dBusProxyGetCachedProperty :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - T.Text -> -- property_name - m GVariant -dBusProxyGetCachedProperty _obj property_name = liftIO $ do + a -- _obj + -> T.Text -- propertyName + -> m GVariant -- result +dBusProxyGetCachedProperty _obj propertyName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - result <- g_dbus_proxy_get_cached_property _obj' property_name' + 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 property_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1106,8 +1200,8 @@ dBusProxyGetCachedPropertyNames :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result dBusProxyGetCachedPropertyNames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_cached_property_names _obj' @@ -1118,11 +1212,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusConnection" -- throws : False -- Skip return : False @@ -1134,8 +1231,8 @@ dBusProxyGetConnection :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m DBusConnection + a -- _obj + -> m DBusConnection -- result dBusProxyGetConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_connection _obj' @@ -1144,11 +1241,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1160,19 +1260,22 @@ dBusProxyGetDefaultTimeout :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusProxyFlags" -- throws : False -- Skip return : False @@ -1184,8 +1287,8 @@ dBusProxyGetFlags :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m [DBusProxyFlags] + a -- _obj + -> m [DBusProxyFlags] -- result dBusProxyGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_flags _obj' @@ -1193,11 +1296,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceInfo" -- throws : False -- Skip return : False @@ -1209,8 +1315,8 @@ dBusProxyGetInterfaceInfo :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m DBusInterfaceInfo + a -- _obj + -> m DBusInterfaceInfo -- result dBusProxyGetInterfaceInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_interface_info _obj' @@ -1219,11 +1325,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1235,8 +1344,8 @@ dBusProxyGetInterfaceName :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusProxyGetInterfaceName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_interface_name _obj' @@ -1245,11 +1354,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1261,8 +1373,8 @@ dBusProxyGetName :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusProxyGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_name _obj' @@ -1271,11 +1383,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1287,8 +1402,8 @@ dBusProxyGetNameOwner :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusProxyGetNameOwner _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_name_owner _obj' @@ -1298,11 +1413,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1314,8 +1432,8 @@ dBusProxyGetObjectPath :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusProxyGetObjectPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_proxy_get_object_path _obj' @@ -1324,11 +1442,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1342,28 +1463,31 @@ dBusProxySetCachedProperty :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - T.Text -> -- property_name - Maybe (GVariant) -> -- value - m () -dBusProxySetCachedProperty _obj property_name value = liftIO $ do + a -- _obj + -> T.Text -- propertyName + -> Maybe (GVariant) -- value + -> m () -- result +dBusProxySetCachedProperty _obj propertyName value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name + 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' property_name' maybeValue + g_dbus_proxy_set_cached_property _obj' propertyName' maybeValue touchManagedPtr _obj - freeMem property_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1376,20 +1500,23 @@ dBusProxySetDefaultTimeout :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - Int32 -> -- timeout_msec - m () -dBusProxySetDefaultTimeout _obj timeout_msec = liftIO $ do + a -- _obj + -> Int32 -- timeoutMsec + -> m () -- result +dBusProxySetDefaultTimeout _obj timeoutMsec = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_proxy_set_default_timeout _obj' timeout_msec + 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 {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1402,9 +1529,9 @@ dBusProxySetInterfaceInfo :: (MonadIO m, DBusProxyK a) => - a -> -- _obj - Maybe (DBusInterfaceInfo) -> -- info - m () + a -- _obj + -> Maybe (DBusInterfaceInfo) -- info + -> m () -- result dBusProxySetInterfaceInfo _obj info = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeInfo <- case info of @@ -1417,11 +1544,14 @@ 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 {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1441,16 +1571,16 @@ dBusProxyNew :: (MonadIO m, DBusConnectionK a, CancellableK b) => - a -> -- connection - [DBusProxyFlags] -> -- flags - Maybe (DBusInterfaceInfo) -> -- info - Maybe (T.Text) -> -- name - T.Text -> -- object_path - T.Text -> -- interface_name - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusProxyNew connection flags info name object_path interface_name cancellable callback = liftIO $ do + 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 @@ -1463,8 +1593,8 @@ Just jName -> do jName' <- textToCString jName return jName' - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name + objectPath' <- textToCString objectPath + interfaceName' <- textToCString interfaceName maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -1477,21 +1607,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_dbus_proxy_new connection' flags' maybeInfo maybeName object_path' interface_name' maybeCancellable maybeCallback user_data + 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 object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' return () -- method DBusProxy::new_for_bus -- method type : MemberFunction --- Args : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1511,17 +1640,17 @@ dBusProxyNewForBus :: (MonadIO m, CancellableK a) => - BusType -> -- bus_type - [DBusProxyFlags] -> -- flags - Maybe (DBusInterfaceInfo) -> -- info - T.Text -> -- name - T.Text -> -- object_path - T.Text -> -- interface_name - Maybe (a) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dBusProxyNewForBus bus_type flags info name object_path interface_name cancellable callback = liftIO $ do - let bus_type' = (fromIntegral . fromEnum) bus_type + 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 @@ -1529,8 +1658,8 @@ let jInfo' = unsafeManagedPtrGetPtr jInfo return jInfo' name' <- textToCString name - object_path' <- textToCString object_path - interface_name' <- textToCString interface_name + objectPath' <- textToCString objectPath + interfaceName' <- textToCString interfaceName maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -1543,13 +1672,13 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_dbus_proxy_new_for_bus bus_type' flags' maybeInfo name' object_path' interface_name' maybeCancellable maybeCallback user_data + 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 object_path' - freeMem interface_name' + freeMem objectPath' + freeMem interfaceName' return () diff --git a/GI/Gio/Objects/DBusProxy.hs-boot b/GI/Gio/Objects/DBusProxy.hs-boot --- a/GI/Gio/Objects/DBusProxy.hs-boot +++ b/GI/Gio/Objects/DBusProxy.hs-boot @@ -22,3 +22,22 @@ 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 --- a/GI/Gio/Objects/DBusServer.hs +++ b/GI/Gio/Objects/DBusServer.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** dBusServerGetClientAddress + DBusServerGetClientAddressMethodInfo , dBusServerGetClientAddress , -- ** dBusServerGetFlags + DBusServerGetFlagsMethodInfo , dBusServerGetFlags , -- ** dBusServerGetGuid + DBusServerGetGuidMethodInfo , dBusServerGetGuid , -- ** dBusServerIsActive + DBusServerIsActiveMethodInfo , dBusServerIsActive , @@ -37,10 +42,12 @@ -- ** dBusServerStart + DBusServerStartMethodInfo , dBusServerStart , -- ** dBusServerStop + DBusServerStopMethodInfo , dBusServerStop , @@ -132,6 +139,46 @@ 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 -> @@ -189,7 +236,7 @@ type AttrSetTypeConstraint DBusServerActivePropertyInfo = (~) () type AttrBaseTypeConstraint DBusServerActivePropertyInfo = DBusServerK type AttrGetType DBusServerActivePropertyInfo = Bool - type AttrLabel DBusServerActivePropertyInfo = "DBusServer::active" + type AttrLabel DBusServerActivePropertyInfo = "active" attrGet _ = getDBusServerActive attrSet _ = undefined attrConstruct _ = undefined @@ -210,7 +257,7 @@ type AttrSetTypeConstraint DBusServerAddressPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusServerAddressPropertyInfo = DBusServerK type AttrGetType DBusServerAddressPropertyInfo = T.Text - type AttrLabel DBusServerAddressPropertyInfo = "DBusServer::address" + type AttrLabel DBusServerAddressPropertyInfo = "address" attrGet _ = getDBusServerAddress attrSet _ = undefined attrConstruct _ = constructDBusServerAddress @@ -231,7 +278,7 @@ type AttrSetTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusAuthObserverK type AttrBaseTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusServerK type AttrGetType DBusServerAuthenticationObserverPropertyInfo = DBusAuthObserver - type AttrLabel DBusServerAuthenticationObserverPropertyInfo = "DBusServer::authentication-observer" + type AttrLabel DBusServerAuthenticationObserverPropertyInfo = "authentication-observer" attrGet _ = getDBusServerAuthenticationObserver attrSet _ = undefined attrConstruct _ = constructDBusServerAuthenticationObserver @@ -249,7 +296,7 @@ type AttrSetTypeConstraint DBusServerClientAddressPropertyInfo = (~) () type AttrBaseTypeConstraint DBusServerClientAddressPropertyInfo = DBusServerK type AttrGetType DBusServerClientAddressPropertyInfo = T.Text - type AttrLabel DBusServerClientAddressPropertyInfo = "DBusServer::client-address" + type AttrLabel DBusServerClientAddressPropertyInfo = "client-address" attrGet _ = getDBusServerClientAddress attrSet _ = undefined attrConstruct _ = undefined @@ -270,7 +317,7 @@ type AttrSetTypeConstraint DBusServerFlagsPropertyInfo = (~) [DBusServerFlags] type AttrBaseTypeConstraint DBusServerFlagsPropertyInfo = DBusServerK type AttrGetType DBusServerFlagsPropertyInfo = [DBusServerFlags] - type AttrLabel DBusServerFlagsPropertyInfo = "DBusServer::flags" + type AttrLabel DBusServerFlagsPropertyInfo = "flags" attrGet _ = getDBusServerFlags attrSet _ = undefined attrConstruct _ = constructDBusServerFlags @@ -291,13 +338,13 @@ type AttrSetTypeConstraint DBusServerGuidPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DBusServerGuidPropertyInfo = DBusServerK type AttrGetType DBusServerGuidPropertyInfo = T.Text - type AttrLabel DBusServerGuidPropertyInfo = "DBusServer::guid" + type AttrLabel DBusServerGuidPropertyInfo = "guid" attrGet _ = getDBusServerGuid attrSet _ = undefined attrConstruct _ = constructDBusServerGuid type instance AttributeList DBusServer = DBusServerAttributeList -type DBusServerAttributeList = ('[ '("active", DBusServerActivePropertyInfo), '("address", DBusServerAddressPropertyInfo), '("authentication-observer", DBusServerAuthenticationObserverPropertyInfo), '("client-address", DBusServerClientAddressPropertyInfo), '("flags", DBusServerFlagsPropertyInfo), '("guid", DBusServerGuidPropertyInfo)] :: [(Symbol, *)]) +type DBusServerAttributeList = ('[ '("active", DBusServerActivePropertyInfo), '("address", DBusServerAddressPropertyInfo), '("authenticationObserver", DBusServerAuthenticationObserverPropertyInfo), '("clientAddress", DBusServerClientAddressPropertyInfo), '("flags", DBusServerFlagsPropertyInfo), '("guid", DBusServerGuidPropertyInfo)] :: [(Symbol, *)]) data DBusServerNewConnectionSignalInfo instance SignalInfo DBusServerNewConnectionSignalInfo where @@ -305,13 +352,12 @@ connectSignal _ = connectDBusServerNewConnection type instance SignalList DBusServer = DBusServerSignalList -type DBusServerSignalList = ('[ '("new-connection", DBusServerNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DBusServerSignalList = ('[ '("newConnection", DBusServerNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DBusServer::new_sync -- method type : Constructor --- Args : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusServerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "DBusServerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusServer" -- throws : True -- Skip return : False @@ -328,12 +374,12 @@ dBusServerNewSync :: (MonadIO m, DBusAuthObserverK a, CancellableK b) => - T.Text -> -- address - [DBusServerFlags] -> -- flags - T.Text -> -- guid - Maybe (a) -> -- observer - Maybe (b) -> -- cancellable - m DBusServer + 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 @@ -364,9 +410,8 @@ -- method DBusServer::get_client_address -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -378,8 +423,8 @@ dBusServerGetClientAddress :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusServerGetClientAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_server_get_client_address _obj' @@ -388,11 +433,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusServerFlags" -- throws : False -- Skip return : False @@ -404,8 +452,8 @@ dBusServerGetFlags :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m [DBusServerFlags] + a -- _obj + -> m [DBusServerFlags] -- result dBusServerGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_server_get_flags _obj' @@ -413,11 +461,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -429,8 +480,8 @@ dBusServerGetGuid :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result dBusServerGetGuid _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_server_get_guid _obj' @@ -439,11 +490,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -455,8 +509,8 @@ dBusServerIsActive :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result dBusServerIsActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_dbus_server_is_active _obj' @@ -464,11 +518,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -480,19 +537,22 @@ dBusServerStart :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -504,12 +564,16 @@ dBusServerStop :: (MonadIO m, DBusServerK a) => - a -> -- _obj - m () + 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 --- a/GI/Gio/Objects/DBusServer.hs-boot +++ b/GI/Gio/Objects/DBusServer.hs-boot @@ -18,3 +18,9 @@ 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 --- a/GI/Gio/Objects/DataInputStream.hs +++ b/GI/Gio/Objects/DataInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** dataInputStreamGetByteOrder + DataInputStreamGetByteOrderMethodInfo , dataInputStreamGetByteOrder , -- ** dataInputStreamGetNewlineType + DataInputStreamGetNewlineTypeMethodInfo , dataInputStreamGetNewlineType , @@ -29,82 +32,102 @@ -- ** 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 , @@ -161,6 +184,95 @@ 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] @@ -180,7 +292,7 @@ type AttrSetTypeConstraint DataInputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder type AttrBaseTypeConstraint DataInputStreamByteOrderPropertyInfo = DataInputStreamK type AttrGetType DataInputStreamByteOrderPropertyInfo = DataStreamByteOrder - type AttrLabel DataInputStreamByteOrderPropertyInfo = "DataInputStream::byte-order" + type AttrLabel DataInputStreamByteOrderPropertyInfo = "byte-order" attrGet _ = getDataInputStreamByteOrder attrSet _ = setDataInputStreamByteOrder attrConstruct _ = constructDataInputStreamByteOrder @@ -204,22 +316,21 @@ type AttrSetTypeConstraint DataInputStreamNewlineTypePropertyInfo = (~) DataStreamNewlineType type AttrBaseTypeConstraint DataInputStreamNewlineTypePropertyInfo = DataInputStreamK type AttrGetType DataInputStreamNewlineTypePropertyInfo = DataStreamNewlineType - type AttrLabel DataInputStreamNewlineTypePropertyInfo = "DataInputStream::newline-type" + type AttrLabel DataInputStreamNewlineTypePropertyInfo = "newline-type" attrGet _ = getDataInputStreamNewlineType attrSet _ = setDataInputStreamNewlineType attrConstruct _ = constructDataInputStreamNewlineType type instance AttributeList DataInputStream = DataInputStreamAttributeList -type DataInputStreamAttributeList = ('[ '("base-stream", FilterInputStreamBaseStreamPropertyInfo), '("buffer-size", BufferedInputStreamBufferSizePropertyInfo), '("byte-order", DataInputStreamByteOrderPropertyInfo), '("close-base-stream", FilterInputStreamCloseBaseStreamPropertyInfo), '("newline-type", DataInputStreamNewlineTypePropertyInfo)] :: [(Symbol, *)]) +type DataInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("byteOrder", DataInputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("newlineType", DataInputStreamNewlineTypePropertyInfo)] :: [(Symbol, *)]) type instance SignalList DataInputStream = DataInputStreamSignalList -type DataInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DataInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DataInputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DataInputStream" -- throws : False -- Skip return : False @@ -231,21 +342,20 @@ dataInputStreamNew :: (MonadIO m, InputStreamK a) => - a -> -- base_stream - m DataInputStream -dataInputStreamNew base_stream = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_data_input_stream_new base_stream' + 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 base_stream + touchManagedPtr baseStream return result' -- method DataInputStream::get_byte_order -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DataStreamByteOrder" -- throws : False -- Skip return : False @@ -257,8 +367,8 @@ dataInputStreamGetByteOrder :: (MonadIO m, DataInputStreamK a) => - a -> -- _obj - m DataStreamByteOrder + a -- _obj + -> m DataStreamByteOrder -- result dataInputStreamGetByteOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_data_input_stream_get_byte_order _obj' @@ -266,11 +376,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DataStreamNewlineType" -- throws : False -- Skip return : False @@ -282,8 +395,8 @@ dataInputStreamGetNewlineType :: (MonadIO m, DataInputStreamK a) => - a -> -- _obj - m DataStreamNewlineType + a -- _obj + -> m DataStreamNewlineType -- result dataInputStreamGetNewlineType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_data_input_stream_get_newline_type _obj' @@ -291,11 +404,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt8 -- throws : True -- Skip return : False @@ -309,9 +425,9 @@ dataInputStreamReadByte :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word8 + a -- _obj + -> Maybe (b) -- cancellable + -> m Word8 -- result dataInputStreamReadByte _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -328,11 +444,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt16 -- throws : True -- Skip return : False @@ -346,9 +465,9 @@ dataInputStreamReadInt16 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Int16 + a -- _obj + -> Maybe (b) -- cancellable + -> m Int16 -- result dataInputStreamReadInt16 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -365,11 +484,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -383,9 +505,9 @@ dataInputStreamReadInt32 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Int32 + a -- _obj + -> Maybe (b) -- cancellable + -> m Int32 -- result dataInputStreamReadInt32 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -402,11 +524,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -420,9 +545,9 @@ dataInputStreamReadInt64 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Int64 + a -- _obj + -> Maybe (b) -- cancellable + -> m Int64 -- result dataInputStreamReadInt64 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -439,11 +564,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUInt8) -- throws : True -- Skip return : False @@ -458,9 +586,9 @@ dataInputStreamReadLine :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m (ByteString,Word64) + a -- _obj + -> Maybe (b) -- cancellable + -> m (ByteString,Word64) -- result dataInputStreamReadLine _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Word64) @@ -483,11 +611,14 @@ freeMem length_ ) +data DataInputStreamReadLineMethodInfo +instance (signature ~ (Maybe (b) -> m (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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -503,12 +634,12 @@ dataInputStreamReadLineAsync :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dataInputStreamReadLineAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -522,17 +653,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_data_input_stream_read_line_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUInt8) -- throws : True -- Skip return : False @@ -547,9 +681,9 @@ dataInputStreamReadLineFinish :: (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (ByteString,Word64) + a -- _obj + -> b -- result_ + -> m (ByteString,Word64) -- result dataInputStreamReadLineFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -568,11 +702,14 @@ freeMem length_ ) +data DataInputStreamReadLineFinishMethodInfo +instance (signature ~ (b -> m (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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -587,9 +724,9 @@ dataInputStreamReadLineFinishUtf8 :: (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (T.Text,Word64) + a -- _obj + -> b -- result_ + -> m (T.Text,Word64) -- result dataInputStreamReadLineFinishUtf8 _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -608,11 +745,14 @@ freeMem length_ ) +data DataInputStreamReadLineFinishUtf8MethodInfo +instance (signature ~ (b -> m (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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -627,9 +767,9 @@ dataInputStreamReadLineUtf8 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m (T.Text,Word64) + a -- _obj + -> Maybe (b) -- cancellable + -> m (T.Text,Word64) -- result dataInputStreamReadLineUtf8 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Word64) @@ -652,11 +792,14 @@ freeMem length_ ) +data DataInputStreamReadLineUtf8MethodInfo +instance (signature ~ (Maybe (b) -> m (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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : True -- Skip return : False @@ -670,9 +813,9 @@ dataInputStreamReadUint16 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word16 + a -- _obj + -> Maybe (b) -- cancellable + -> m Word16 -- result dataInputStreamReadUint16 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -689,11 +832,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : True -- Skip return : False @@ -707,9 +853,9 @@ dataInputStreamReadUint32 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word32 + a -- _obj + -> Maybe (b) -- cancellable + -> m Word32 -- result dataInputStreamReadUint32 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -726,11 +872,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : True -- Skip return : False @@ -744,9 +893,9 @@ dataInputStreamReadUint64 :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word64 + a -- _obj + -> Maybe (b) -- cancellable + -> m Word64 -- result dataInputStreamReadUint64 _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -763,11 +912,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -783,13 +935,13 @@ dataInputStreamReadUntil :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- stop_chars - Maybe (b) -> -- cancellable - m (T.Text,Word64) -dataInputStreamReadUntil _obj stop_chars cancellable = liftIO $ do + a -- _obj + -> T.Text -- stopChars + -> Maybe (b) -- cancellable + -> m (T.Text,Word64) -- result +dataInputStreamReadUntil _obj stopChars cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - stop_chars' <- textToCString stop_chars + stopChars' <- textToCString stopChars length_ <- allocMem :: IO (Ptr Word64) maybeCancellable <- case cancellable of Nothing -> return nullPtr @@ -797,26 +949,29 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_data_input_stream_read_until _obj' stop_chars' length_ maybeCancellable + 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 stop_chars' + freeMem stopChars' freeMem length_ return (result', length_') ) (do - freeMem stop_chars' + 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -833,15 +988,15 @@ dataInputStreamReadUntilAsync :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- stop_chars - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dataInputStreamReadUntilAsync _obj stop_chars io_priority cancellable callback = liftIO $ do + 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 - stop_chars' <- textToCString stop_chars + stopChars' <- textToCString stopChars maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -854,18 +1009,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_data_input_stream_read_until_async _obj' stop_chars' io_priority maybeCancellable maybeCallback user_data + let userData = nullPtr + g_data_input_stream_read_until_async _obj' stopChars' ioPriority maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem stop_chars' + 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -880,9 +1038,9 @@ dataInputStreamReadUntilFinish :: (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (T.Text,Word64) + a -- _obj + -> b -- result_ + -> m (T.Text,Word64) -- result dataInputStreamReadUntilFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -901,11 +1059,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -922,14 +1083,14 @@ dataInputStreamReadUpto :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- stop_chars - Int64 -> -- stop_chars_len - Maybe (b) -> -- cancellable - m (T.Text,Word64) -dataInputStreamReadUpto _obj stop_chars stop_chars_len cancellable = liftIO $ do + 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 - stop_chars' <- textToCString stop_chars + stopChars' <- textToCString stopChars length_ <- allocMem :: IO (Ptr Word64) maybeCancellable <- case cancellable of Nothing -> return nullPtr @@ -937,26 +1098,29 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_data_input_stream_read_upto _obj' stop_chars' stop_chars_len length_ maybeCancellable + 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 stop_chars' + freeMem stopChars' freeMem length_ return (result', length_') ) (do - freeMem stop_chars' + 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -974,16 +1138,16 @@ dataInputStreamReadUptoAsync :: (MonadIO m, DataInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- stop_chars - Int64 -> -- stop_chars_len - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -dataInputStreamReadUptoAsync _obj stop_chars stop_chars_len io_priority cancellable callback = liftIO $ do + 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 - stop_chars' <- textToCString stop_chars + stopChars' <- textToCString stopChars maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -996,18 +1160,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_data_input_stream_read_upto_async _obj' stop_chars' stop_chars_len io_priority maybeCancellable maybeCallback user_data + let userData = nullPtr + g_data_input_stream_read_upto_async _obj' stopChars' stopCharsLen ioPriority maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem stop_chars' + 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -1022,9 +1189,9 @@ dataInputStreamReadUptoFinish :: (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (T.Text,Word64) + a -- _obj + -> b -- result_ + -> m (T.Text,Word64) -- result dataInputStreamReadUptoFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1043,11 +1210,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1060,9 +1230,9 @@ dataInputStreamSetByteOrder :: (MonadIO m, DataInputStreamK a) => - a -> -- _obj - DataStreamByteOrder -> -- order - m () + a -- _obj + -> DataStreamByteOrder -- order + -> m () -- result dataInputStreamSetByteOrder _obj order = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let order' = (fromIntegral . fromEnum) order @@ -1070,11 +1240,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "DataStreamNewlineType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "DataStreamNewlineType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1087,14 +1260,18 @@ dataInputStreamSetNewlineType :: (MonadIO m, DataInputStreamK a) => - a -> -- _obj - DataStreamNewlineType -> -- type - m () + 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 --- a/GI/Gio/Objects/DataInputStream.hs-boot +++ b/GI/Gio/Objects/DataInputStream.hs-boot @@ -13,3 +13,25 @@ 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 --- a/GI/Gio/Objects/DataOutputStream.hs +++ b/GI/Gio/Objects/DataOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** dataOutputStreamGetByteOrder + DataOutputStreamGetByteOrderMethodInfo , dataOutputStreamGetByteOrder , @@ -25,38 +27,47 @@ -- ** 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 , @@ -106,6 +117,80 @@ 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] @@ -125,22 +210,21 @@ type AttrSetTypeConstraint DataOutputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder type AttrBaseTypeConstraint DataOutputStreamByteOrderPropertyInfo = DataOutputStreamK type AttrGetType DataOutputStreamByteOrderPropertyInfo = DataStreamByteOrder - type AttrLabel DataOutputStreamByteOrderPropertyInfo = "DataOutputStream::byte-order" + type AttrLabel DataOutputStreamByteOrderPropertyInfo = "byte-order" attrGet _ = getDataOutputStreamByteOrder attrSet _ = setDataOutputStreamByteOrder attrConstruct _ = constructDataOutputStreamByteOrder type instance AttributeList DataOutputStream = DataOutputStreamAttributeList -type DataOutputStreamAttributeList = ('[ '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("byte-order", DataOutputStreamByteOrderPropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) +type DataOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("byteOrder", DataOutputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DataOutputStream = DataOutputStreamSignalList -type DataOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DataOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DataOutputStream::new -- method type : Constructor --- Args : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DataOutputStream" -- throws : False -- Skip return : False @@ -152,21 +236,20 @@ dataOutputStreamNew :: (MonadIO m, OutputStreamK a) => - a -> -- base_stream - m DataOutputStream -dataOutputStreamNew base_stream = liftIO $ do - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- g_data_output_stream_new base_stream' + 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 base_stream + touchManagedPtr baseStream return result' -- method DataOutputStream::get_byte_order -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DataStreamByteOrder" -- throws : False -- Skip return : False @@ -178,8 +261,8 @@ dataOutputStreamGetByteOrder :: (MonadIO m, DataOutputStreamK a) => - a -> -- _obj - m DataStreamByteOrder + a -- _obj + -> m DataStreamByteOrder -- result dataOutputStreamGetByteOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_data_output_stream_get_byte_order _obj' @@ -187,11 +270,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -206,10 +292,10 @@ dataOutputStreamPutByte :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Word8 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Word8 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutByte _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -226,11 +312,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -245,10 +334,10 @@ dataOutputStreamPutInt16 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Int16 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Int16 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutInt16 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -265,11 +354,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -284,10 +376,10 @@ dataOutputStreamPutInt32 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Int32 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutInt32 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -304,11 +396,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -323,10 +418,10 @@ dataOutputStreamPutInt64 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Int64 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Int64 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutInt64 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -343,11 +438,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -362,10 +460,10 @@ dataOutputStreamPutString :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- str - Maybe (b) -> -- cancellable - m () + a -- _obj + -> T.Text -- str + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutString _obj str cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj str' <- textToCString str @@ -384,11 +482,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -403,10 +504,10 @@ dataOutputStreamPutUint16 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Word16 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Word16 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutUint16 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -423,11 +524,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -442,10 +546,10 @@ dataOutputStreamPutUint32 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Word32 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Word32 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutUint32 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -462,11 +566,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -481,10 +588,10 @@ dataOutputStreamPutUint64 :: (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -> -- _obj - Word64 -> -- data - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Word64 -- data_ + -> Maybe (b) -- cancellable + -> m () -- result dataOutputStreamPutUint64 _obj data_ cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -501,11 +608,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -518,14 +628,18 @@ dataOutputStreamSetByteOrder :: (MonadIO m, DataOutputStreamK a) => - a -> -- _obj - DataStreamByteOrder -> -- order - m () + 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 --- a/GI/Gio/Objects/DataOutputStream.hs-boot +++ b/GI/Gio/Objects/DataOutputStream.hs-boot @@ -12,3 +12,13 @@ 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 --- a/GI/Gio/Objects/DesktopAppInfo.hs +++ b/GI/Gio/Objects/DesktopAppInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,23 +17,32 @@ -- * Methods +-- ** Unsupported methods + DesktopAppInfoLaunchUrisAsManagerMethodInfo, + + -- ** desktopAppInfoGetActionName + DesktopAppInfoGetActionNameMethodInfo , desktopAppInfoGetActionName , -- ** desktopAppInfoGetBoolean + DesktopAppInfoGetBooleanMethodInfo , desktopAppInfoGetBoolean , -- ** desktopAppInfoGetCategories + DesktopAppInfoGetCategoriesMethodInfo , desktopAppInfoGetCategories , -- ** desktopAppInfoGetFilename + DesktopAppInfoGetFilenameMethodInfo , desktopAppInfoGetFilename , -- ** desktopAppInfoGetGenericName + DesktopAppInfoGetGenericNameMethodInfo , desktopAppInfoGetGenericName , @@ -41,38 +51,47 @@ -- ** 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 , @@ -142,6 +161,77 @@ 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] @@ -158,7 +248,7 @@ type AttrSetTypeConstraint DesktopAppInfoFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DesktopAppInfoFilenamePropertyInfo = DesktopAppInfoK type AttrGetType DesktopAppInfoFilenamePropertyInfo = T.Text - type AttrLabel DesktopAppInfoFilenamePropertyInfo = "DesktopAppInfo::filename" + type AttrLabel DesktopAppInfoFilenamePropertyInfo = "filename" attrGet _ = getDesktopAppInfoFilename attrSet _ = undefined attrConstruct _ = constructDesktopAppInfoFilename @@ -167,13 +257,12 @@ type DesktopAppInfoAttributeList = ('[ '("filename", DesktopAppInfoFilenamePropertyInfo)] :: [(Symbol, *)]) type instance SignalList DesktopAppInfo = DesktopAppInfoSignalList -type DesktopAppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type DesktopAppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DesktopAppInfo::new -- method type : Constructor --- Args : [Arg {argName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DesktopAppInfo" -- throws : False -- Skip return : False @@ -185,21 +274,20 @@ desktopAppInfoNew :: (MonadIO m) => - T.Text -> -- desktop_id - m DesktopAppInfo -desktopAppInfoNew desktop_id = liftIO $ do - desktop_id' <- textToCString desktop_id - result <- g_desktop_app_info_new desktop_id' + 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 desktop_id' + freeMem desktopId' return result' -- method DesktopAppInfo::new_from_filename -- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DesktopAppInfo" -- throws : False -- Skip return : False @@ -211,8 +299,8 @@ desktopAppInfoNewFromFilename :: (MonadIO m) => - T.Text -> -- filename - m DesktopAppInfo + T.Text -- filename + -> m DesktopAppInfo -- result desktopAppInfoNewFromFilename filename = liftIO $ do filename' <- textToCString filename result <- g_desktop_app_info_new_from_filename filename' @@ -223,9 +311,8 @@ -- method DesktopAppInfo::new_from_keyfile -- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DesktopAppInfo" -- throws : False -- Skip return : False @@ -237,21 +324,20 @@ desktopAppInfoNewFromKeyfile :: (MonadIO m) => - GLib.KeyFile -> -- key_file - m DesktopAppInfo -desktopAppInfoNewFromKeyfile key_file = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - result <- g_desktop_app_info_new_from_keyfile key_file' + 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 key_file + touchManagedPtr keyFile return result' -- method DesktopAppInfo::get_action_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -264,25 +350,28 @@ desktopAppInfoGetActionName :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - T.Text -> -- action_name - m T.Text -desktopAppInfoGetActionName _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m T.Text -- result +desktopAppInfoGetActionName _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_desktop_app_info_get_action_name _obj' action_name' + 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 action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -295,9 +384,9 @@ desktopAppInfoGetBoolean :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - T.Text -> -- key - m Bool + a -- _obj + -> T.Text -- key + -> m Bool -- result desktopAppInfoGetBoolean _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -307,11 +396,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -323,8 +415,8 @@ desktopAppInfoGetCategories :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result desktopAppInfoGetCategories _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_categories _obj' @@ -333,11 +425,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -349,8 +444,8 @@ desktopAppInfoGetFilename :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result desktopAppInfoGetFilename _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_filename _obj' @@ -359,11 +454,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -375,8 +473,8 @@ desktopAppInfoGetGenericName :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result desktopAppInfoGetGenericName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_generic_name _obj' @@ -385,11 +483,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -401,8 +502,8 @@ desktopAppInfoGetIsHidden :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result desktopAppInfoGetIsHidden _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_is_hidden _obj' @@ -410,11 +511,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -426,8 +530,8 @@ desktopAppInfoGetKeywords :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result desktopAppInfoGetKeywords _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_keywords _obj' @@ -436,11 +540,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -452,8 +559,8 @@ desktopAppInfoGetNodisplay :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result desktopAppInfoGetNodisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_nodisplay _obj' @@ -461,11 +568,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -478,27 +588,30 @@ desktopAppInfoGetShowIn :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - Maybe (T.Text) -> -- desktop_env - m Bool -desktopAppInfoGetShowIn _obj desktop_env = liftIO $ do + a -- _obj + -> Maybe (T.Text) -- desktopEnv + -> m Bool -- result +desktopAppInfoGetShowIn _obj desktopEnv = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeDesktop_env <- case desktop_env of + maybeDesktopEnv <- case desktopEnv of Nothing -> return nullPtr - Just jDesktop_env -> do - jDesktop_env' <- textToCString jDesktop_env - return jDesktop_env' - result <- g_desktop_app_info_get_show_in _obj' maybeDesktop_env + 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 maybeDesktop_env + 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -510,8 +623,8 @@ desktopAppInfoGetStartupWmClass :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result desktopAppInfoGetStartupWmClass _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_get_startup_wm_class _obj' @@ -520,11 +633,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -537,9 +653,9 @@ desktopAppInfoGetString :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - T.Text -> -- key - m T.Text + a -- _obj + -> T.Text -- key + -> m T.Text -- result desktopAppInfoGetString _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -551,11 +667,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -568,9 +687,9 @@ desktopAppInfoHasKey :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - T.Text -> -- key - m Bool + a -- _obj + -> T.Text -- key + -> m Bool -- result desktopAppInfoHasKey _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -580,11 +699,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -598,31 +720,39 @@ desktopAppInfoLaunchAction :: (MonadIO m, DesktopAppInfoK a, AppLaunchContextK b) => - a -> -- _obj - T.Text -> -- action_name - Maybe (b) -> -- launch_context - m () -desktopAppInfoLaunchAction _obj action_name launch_context = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> Maybe (b) -- launchContext + -> m () -- result +desktopAppInfoLaunchAction _obj actionName launchContext = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - maybeLaunch_context <- case launch_context of + actionName' <- textToCString actionName + maybeLaunchContext <- case launchContext of Nothing -> return nullPtr - Just jLaunch_context -> do - let jLaunch_context' = unsafeManagedPtrCastPtr jLaunch_context - return jLaunch_context' - g_desktop_app_info_launch_action _obj' action_name' maybeLaunch_context + Just jLaunchContext -> do + let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext + return jLaunchContext' + g_desktop_app_info_launch_action _obj' actionName' maybeLaunchContext touchManagedPtr _obj - whenJust launch_context touchManagedPtr - freeMem action_name' + 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 = TBasicType TBoolean\n , returnMayBeNull = False\n , returnTransfer = TransferNothing\n , args =\n [ Arg\n { argName = \"_obj\"\n , argType = TInterface \"Gio\" \"DesktopAppInfo\"\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"uris\"\n , argType = TGList (TBasicType TUTF8)\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"launch_context\"\n , argType = TInterface \"Gio\" \"AppLaunchContext\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"spawn_flags\"\n , argType = TInterface \"GLib\" \"SpawnFlags\"\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"user_setup\"\n , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 5\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"user_setup_data\"\n , argType = TBasicType TVoid\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = 4\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"pid_callback\"\n , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 7\n , argDestroy = -1\n , transfer = TransferNothing\n }\n , Arg\n { argName = \"pid_callback_data\"\n , argType = TBasicType TVoid\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = 6\n , argDestroy = -1\n , transfer = TransferNothing\n }\n ]\n , skipReturn = False\n , callableDeprecated = Nothing\n }\nfromList\n [ ( 5\n , Arg\n { argName = \"user_setup\"\n , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 5\n , argDestroy = -1\n , transfer = TransferNothing\n }\n )\n , ( 7\n , Arg\n { argName = \"pid_callback\"\n , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 7\n , argDestroy = -1\n , transfer = TransferNothing\n }\n )\n ]\n4" +-- Error was : Bad introspection data: "Closure not found! Callable\n { returnType = 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 TVoid\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 TVoid\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 {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -634,8 +764,8 @@ desktopAppInfoListActions :: (MonadIO m, DesktopAppInfoK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result desktopAppInfoListActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_desktop_app_info_list_actions _obj' @@ -644,11 +774,14 @@ 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 {argName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "DesktopAppInfo") -- throws : False -- Skip return : False @@ -660,8 +793,8 @@ desktopAppInfoGetImplementations :: (MonadIO m) => - T.Text -> -- interface - m [DesktopAppInfo] + T.Text -- interface + -> m [DesktopAppInfo] -- result desktopAppInfoGetImplementations interface = liftIO $ do interface' <- textToCString interface result <- g_desktop_app_info_get_implementations interface' @@ -674,9 +807,8 @@ -- method DesktopAppInfo::search -- method type : MemberFunction --- Args : [Arg {argName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -688,25 +820,24 @@ desktopAppInfoSearch :: (MonadIO m) => - T.Text -> -- search_string - m [[T.Text]] -desktopAppInfoSearch search_string = liftIO $ do - search_string' <- textToCString search_string - result <- g_desktop_app_info_search search_string' + 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 search_string' + freeMem searchString' return result'' -- method DesktopAppInfo::set_desktop_env -- method type : MemberFunction --- Args : [Arg {argName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -718,12 +849,12 @@ {-# 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 -> -- desktop_env - m () -desktopAppInfoSetDesktopEnv desktop_env = liftIO $ do - desktop_env' <- textToCString desktop_env - g_desktop_app_info_set_desktop_env desktop_env' - freeMem desktop_env' + 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 --- a/GI/Gio/Objects/DesktopAppInfo.hs-boot +++ b/GI/Gio/Objects/DesktopAppInfo.hs-boot @@ -12,3 +12,18 @@ 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 --- a/GI/Gio/Objects/Emblem.hs +++ b/GI/Gio/Objects/Emblem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** emblemGetIcon + EmblemGetIconMethodInfo , emblemGetIcon , -- ** emblemGetOrigin + EmblemGetOriginMethodInfo , emblemGetOrigin , @@ -83,6 +86,44 @@ 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] @@ -99,7 +140,7 @@ type AttrSetTypeConstraint EmblemIconPropertyInfo = GObject.ObjectK type AttrBaseTypeConstraint EmblemIconPropertyInfo = EmblemK type AttrGetType EmblemIconPropertyInfo = GObject.Object - type AttrLabel EmblemIconPropertyInfo = "Emblem::icon" + type AttrLabel EmblemIconPropertyInfo = "icon" attrGet _ = getEmblemIcon attrSet _ = undefined attrConstruct _ = constructEmblemIcon @@ -120,7 +161,7 @@ type AttrSetTypeConstraint EmblemOriginPropertyInfo = (~) EmblemOrigin type AttrBaseTypeConstraint EmblemOriginPropertyInfo = EmblemK type AttrGetType EmblemOriginPropertyInfo = EmblemOrigin - type AttrLabel EmblemOriginPropertyInfo = "Emblem::origin" + type AttrLabel EmblemOriginPropertyInfo = "origin" attrGet _ = getEmblemOrigin attrSet _ = undefined attrConstruct _ = constructEmblemOrigin @@ -129,13 +170,12 @@ type EmblemAttributeList = ('[ '("icon", EmblemIconPropertyInfo), '("origin", EmblemOriginPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Emblem = EmblemSignalList -type EmblemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EmblemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Emblem::new -- method type : Constructor --- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Emblem" -- throws : False -- Skip return : False @@ -147,8 +187,8 @@ emblemNew :: (MonadIO m, IconK a) => - a -> -- icon - m Emblem + a -- icon + -> m Emblem -- result emblemNew icon = liftIO $ do let icon' = unsafeManagedPtrCastPtr icon result <- g_emblem_new icon' @@ -159,9 +199,8 @@ -- method Emblem::new_with_origin -- method type : Constructor --- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Gio" "EmblemOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Gio" "EmblemOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Emblem" -- throws : False -- Skip return : False @@ -174,9 +213,9 @@ emblemNewWithOrigin :: (MonadIO m, IconK a) => - a -> -- icon - EmblemOrigin -> -- origin - m Emblem + a -- icon + -> EmblemOrigin -- origin + -> m Emblem -- result emblemNewWithOrigin icon origin = liftIO $ do let icon' = unsafeManagedPtrCastPtr icon let origin' = (fromIntegral . fromEnum) origin @@ -188,9 +227,8 @@ -- method Emblem::get_icon -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -202,8 +240,8 @@ emblemGetIcon :: (MonadIO m, EmblemK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result emblemGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_emblem_get_icon _obj' @@ -212,11 +250,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "EmblemOrigin" -- throws : False -- Skip return : False @@ -228,13 +269,17 @@ emblemGetOrigin :: (MonadIO m, EmblemK a) => - a -> -- _obj - m EmblemOrigin + 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 --- a/GI/Gio/Objects/Emblem.hs-boot +++ b/GI/Gio/Objects/Emblem.hs-boot @@ -13,3 +13,5 @@ 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 --- a/GI/Gio/Objects/EmblemedIcon.hs +++ b/GI/Gio/Objects/EmblemedIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** emblemedIconAddEmblem + EmblemedIconAddEmblemMethodInfo , emblemedIconAddEmblem , -- ** emblemedIconClearEmblems + EmblemedIconClearEmblemsMethodInfo , emblemedIconClearEmblems , -- ** emblemedIconGetEmblems + EmblemedIconGetEmblemsMethodInfo , emblemedIconGetEmblems , -- ** emblemedIconGetIcon + EmblemedIconGetIconMethodInfo , emblemedIconGetIcon , @@ -81,6 +86,46 @@ 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] @@ -97,7 +142,7 @@ type AttrSetTypeConstraint EmblemedIconGiconPropertyInfo = IconK type AttrBaseTypeConstraint EmblemedIconGiconPropertyInfo = EmblemedIconK type AttrGetType EmblemedIconGiconPropertyInfo = Icon - type AttrLabel EmblemedIconGiconPropertyInfo = "EmblemedIcon::gicon" + type AttrLabel EmblemedIconGiconPropertyInfo = "gicon" attrGet _ = getEmblemedIconGicon attrSet _ = undefined attrConstruct _ = constructEmblemedIconGicon @@ -106,13 +151,12 @@ type EmblemedIconAttributeList = ('[ '("gicon", EmblemedIconGiconPropertyInfo)] :: [(Symbol, *)]) type instance SignalList EmblemedIcon = EmblemedIconSignalList -type EmblemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type EmblemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method EmblemedIcon::new -- method type : Constructor --- Args : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "EmblemedIcon" -- throws : False -- Skip return : False @@ -125,9 +169,9 @@ emblemedIconNew :: (MonadIO m, IconK a, EmblemK b) => - a -> -- icon - Maybe (b) -> -- emblem - m EmblemedIcon + a -- icon + -> Maybe (b) -- emblem + -> m EmblemedIcon -- result emblemedIconNew icon emblem = liftIO $ do let icon' = unsafeManagedPtrCastPtr icon maybeEmblem <- case emblem of @@ -144,9 +188,8 @@ -- method EmblemedIcon::add_emblem -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -159,9 +202,9 @@ emblemedIconAddEmblem :: (MonadIO m, EmblemedIconK a, EmblemK b) => - a -> -- _obj - b -> -- emblem - m () + a -- _obj + -> b -- emblem + -> m () -- result emblemedIconAddEmblem _obj emblem = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let emblem' = unsafeManagedPtrCastPtr emblem @@ -170,11 +213,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -186,19 +232,22 @@ emblemedIconClearEmblems :: (MonadIO m, EmblemedIconK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "Emblem") -- throws : False -- Skip return : False @@ -210,8 +259,8 @@ emblemedIconGetEmblems :: (MonadIO m, EmblemedIconK a) => - a -> -- _obj - m [Emblem] + a -- _obj + -> m [Emblem] -- result emblemedIconGetEmblems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_emblemed_icon_get_emblems _obj' @@ -221,11 +270,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -237,8 +289,8 @@ emblemedIconGetIcon :: (MonadIO m, EmblemedIconK a) => - a -> -- _obj - m Icon + a -- _obj + -> m Icon -- result emblemedIconGetIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_emblemed_icon_get_icon _obj' @@ -246,5 +298,9 @@ 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 --- a/GI/Gio/Objects/EmblemedIcon.hs-boot +++ b/GI/Gio/Objects/EmblemedIcon.hs-boot @@ -12,3 +12,7 @@ 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 --- a/GI/Gio/Objects/FileEnumerator.hs +++ b/GI/Gio/Objects/FileEnumerator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,50 +18,62 @@ -- * 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 , @@ -108,6 +121,51 @@ 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] @@ -121,7 +179,7 @@ type AttrSetTypeConstraint FileEnumeratorContainerPropertyInfo = FileK type AttrBaseTypeConstraint FileEnumeratorContainerPropertyInfo = FileEnumeratorK type AttrGetType FileEnumeratorContainerPropertyInfo = () - type AttrLabel FileEnumeratorContainerPropertyInfo = "FileEnumerator::container" + type AttrLabel FileEnumeratorContainerPropertyInfo = "container" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructFileEnumeratorContainer @@ -130,13 +188,12 @@ type FileEnumeratorAttributeList = ('[ '("container", FileEnumeratorContainerPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FileEnumerator = FileEnumeratorSignalList -type FileEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileEnumerator::close -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -150,9 +207,9 @@ fileEnumeratorClose :: (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result fileEnumeratorClose _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -169,11 +226,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -189,12 +249,12 @@ fileEnumeratorCloseAsync :: (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileEnumeratorCloseAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -208,17 +268,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_file_enumerator_close_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -232,9 +295,9 @@ fileEnumeratorCloseFinish :: (MonadIO m, FileEnumeratorK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result fileEnumeratorCloseFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -247,11 +310,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -264,9 +330,9 @@ fileEnumeratorGetChild :: (MonadIO m, FileEnumeratorK a, FileInfoK b) => - a -> -- _obj - b -> -- info - m File + a -- _obj + -> b -- info + -> m File -- result fileEnumeratorGetChild _obj info = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let info' = unsafeManagedPtrCastPtr info @@ -277,11 +343,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -293,8 +362,8 @@ fileEnumeratorGetContainer :: (MonadIO m, FileEnumeratorK a) => - a -> -- _obj - m File + a -- _obj + -> m File -- result fileEnumeratorGetContainer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_enumerator_get_container _obj' @@ -303,11 +372,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -319,8 +391,8 @@ fileEnumeratorHasPending :: (MonadIO m, FileEnumeratorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fileEnumeratorHasPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_enumerator_has_pending _obj' @@ -328,11 +400,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -344,8 +419,8 @@ fileEnumeratorIsClosed :: (MonadIO m, FileEnumeratorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fileEnumeratorIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_enumerator_is_closed _obj' @@ -353,11 +428,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_child", argType = TInterface "Gio" "File", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -373,39 +451,42 @@ fileEnumeratorIterate :: (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m (FileInfo,File) + a -- _obj + -> Maybe (b) -- cancellable + -> m (FileInfo,File) -- result fileEnumeratorIterate _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - out_info <- allocMem :: IO (Ptr (Ptr FileInfo)) - out_child <- allocMem :: IO (Ptr (Ptr File)) + 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' out_info out_child maybeCancellable - out_info' <- peek out_info - out_info'' <- (newObject FileInfo) out_info' - out_child' <- peek out_child - out_child'' <- (newObject File) out_child' + _ <- 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 out_info - freeMem out_child - return (out_info'', out_child'') + freeMem outInfo + freeMem outChild + return (outInfo'', outChild'') ) (do - freeMem out_info - freeMem out_child + 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -419,9 +500,9 @@ fileEnumeratorNextFile :: (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m FileInfo + a -- _obj + -> Maybe (b) -- cancellable + -> m FileInfo -- result fileEnumeratorNextFile _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -440,11 +521,14 @@ return () ) +data FileEnumeratorNextFileMethodInfo +instance (signature ~ (Maybe (b) -> m FileInfo), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorNextFileMethodInfo a signature where + overloadedMethod _ = fileEnumeratorNextFile + -- method FileEnumerator::next_files_async -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_files", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_files", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -461,13 +545,13 @@ fileEnumeratorNextFilesAsync :: (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -> -- _obj - Int32 -> -- num_files - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileEnumeratorNextFilesAsync _obj num_files io_priority cancellable callback = liftIO $ do + 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 @@ -481,17 +565,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_file_enumerator_next_files_async _obj' num_files io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "FileInfo") -- throws : True -- Skip return : False @@ -505,9 +592,9 @@ fileEnumeratorNextFilesFinish :: (MonadIO m, FileEnumeratorK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [FileInfo] + a -- _obj + -> b -- result_ + -> m [FileInfo] -- result fileEnumeratorNextFilesFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -524,11 +611,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pending", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pending", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -541,14 +631,18 @@ fileEnumeratorSetPending :: (MonadIO m, FileEnumeratorK a) => - a -> -- _obj - Bool -> -- pending - m () + 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 --- a/GI/Gio/Objects/FileEnumerator.hs-boot +++ b/GI/Gio/Objects/FileEnumerator.hs-boot @@ -12,3 +12,15 @@ 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 --- a/GI/Gio/Objects/FileIOStream.hs +++ b/GI/Gio/Objects/FileIOStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** fileIOStreamGetEtag + FileIOStreamGetEtagMethodInfo , fileIOStreamGetEtag , -- ** fileIOStreamQueryInfo + FileIOStreamQueryInfoMethodInfo , fileIOStreamQueryInfo , -- ** fileIOStreamQueryInfoAsync + FileIOStreamQueryInfoAsyncMethodInfo , fileIOStreamQueryInfoAsync , -- ** fileIOStreamQueryInfoFinish + FileIOStreamQueryInfoFinishMethodInfo , fileIOStreamQueryInfoFinish , @@ -68,17 +73,68 @@ 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), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) +type FileIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FileIOStream = FileIOStreamSignalList -type FileIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileIOStream::get_etag -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -90,8 +146,8 @@ fileIOStreamGetEtag :: (MonadIO m, FileIOStreamK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fileIOStreamGetEtag _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_io_stream_get_etag _obj' @@ -101,11 +157,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -120,10 +179,10 @@ fileIOStreamQueryInfo :: (MonadIO m, FileIOStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Maybe (b) -> -- cancellable - m FileInfo + a -- _obj + -> T.Text -- attributes + -> Maybe (b) -- cancellable + -> m FileInfo -- result fileIOStreamQueryInfo _obj attributes cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj attributes' <- textToCString attributes @@ -144,11 +203,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -165,13 +227,13 @@ fileIOStreamQueryInfoAsync :: (MonadIO m, FileIOStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileIOStreamQueryInfoAsync _obj attributes io_priority cancellable callback = liftIO $ do + 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 @@ -186,18 +248,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_file_io_stream_query_info_async _obj' attributes' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -211,9 +276,9 @@ fileIOStreamQueryInfoFinish :: (MonadIO m, FileIOStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m FileInfo + a -- _obj + -> b -- result_ + -> m FileInfo -- result fileIOStreamQueryInfoFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -227,5 +292,9 @@ ) (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 --- a/GI/Gio/Objects/FileIOStream.hs-boot +++ b/GI/Gio/Objects/FileIOStream.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/FileIcon.hs +++ b/GI/Gio/Objects/FileIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** fileIconGetFile + FileIconGetFileMethodInfo , fileIconGetFile , @@ -69,6 +71,46 @@ 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] @@ -85,7 +127,7 @@ type AttrSetTypeConstraint FileIconFilePropertyInfo = FileK type AttrBaseTypeConstraint FileIconFilePropertyInfo = FileIconK type AttrGetType FileIconFilePropertyInfo = File - type AttrLabel FileIconFilePropertyInfo = "FileIcon::file" + type AttrLabel FileIconFilePropertyInfo = "file" attrGet _ = getFileIconFile attrSet _ = undefined attrConstruct _ = constructFileIconFile @@ -94,13 +136,12 @@ type FileIconAttributeList = ('[ '("file", FileIconFilePropertyInfo)] :: [(Symbol, *)]) type instance SignalList FileIcon = FileIconSignalList -type FileIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileIcon::new -- method type : Constructor --- Args : [Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileIcon" -- throws : False -- Skip return : False @@ -112,8 +153,8 @@ fileIconNew :: (MonadIO m, FileK a) => - a -> -- file - m FileIcon + a -- file + -> m FileIcon -- result fileIconNew file = liftIO $ do let file' = unsafeManagedPtrCastPtr file result <- g_file_icon_new file' @@ -124,9 +165,8 @@ -- method FileIcon::get_file -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -138,8 +178,8 @@ fileIconGetFile :: (MonadIO m, FileIconK a) => - a -> -- _obj - m File + a -- _obj + -> m File -- result fileIconGetFile _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_icon_get_file _obj' @@ -147,5 +187,9 @@ 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 --- a/GI/Gio/Objects/FileIcon.hs-boot +++ b/GI/Gio/Objects/FileIcon.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/FileInfo.hs +++ b/GI/Gio/Objects/FileInfo.hs @@ -1,2085 +1,2428 @@ -{- | -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 - fileInfoClearStatus , - - --- ** fileInfoCopyInto - fileInfoCopyInto , - - --- ** fileInfoDup - fileInfoDup , - - --- ** fileInfoGetAttributeAsString - fileInfoGetAttributeAsString , - - --- ** fileInfoGetAttributeBoolean - fileInfoGetAttributeBoolean , - - --- ** fileInfoGetAttributeByteString - fileInfoGetAttributeByteString , - - --- ** fileInfoGetAttributeData - fileInfoGetAttributeData , - - --- ** fileInfoGetAttributeInt32 - fileInfoGetAttributeInt32 , - - --- ** fileInfoGetAttributeInt64 - fileInfoGetAttributeInt64 , - - --- ** fileInfoGetAttributeObject - fileInfoGetAttributeObject , - - --- ** fileInfoGetAttributeStatus - fileInfoGetAttributeStatus , - - --- ** fileInfoGetAttributeString - fileInfoGetAttributeString , - - --- ** fileInfoGetAttributeStringv - fileInfoGetAttributeStringv , - - --- ** fileInfoGetAttributeType - fileInfoGetAttributeType , - - --- ** fileInfoGetAttributeUint32 - fileInfoGetAttributeUint32 , - - --- ** fileInfoGetAttributeUint64 - fileInfoGetAttributeUint64 , - - --- ** fileInfoGetContentType - fileInfoGetContentType , - - --- ** fileInfoGetDeletionDate - fileInfoGetDeletionDate , - - --- ** fileInfoGetDisplayName - fileInfoGetDisplayName , - - --- ** fileInfoGetEditName - fileInfoGetEditName , - - --- ** fileInfoGetEtag - fileInfoGetEtag , - - --- ** fileInfoGetFileType - fileInfoGetFileType , - - --- ** fileInfoGetIcon - fileInfoGetIcon , - - --- ** fileInfoGetIsBackup - fileInfoGetIsBackup , - - --- ** fileInfoGetIsHidden - fileInfoGetIsHidden , - - --- ** fileInfoGetIsSymlink - fileInfoGetIsSymlink , - - --- ** fileInfoGetModificationTime - fileInfoGetModificationTime , - - --- ** fileInfoGetName - fileInfoGetName , - - --- ** fileInfoGetSize - fileInfoGetSize , - - --- ** fileInfoGetSortOrder - fileInfoGetSortOrder , - - --- ** fileInfoGetSymbolicIcon - fileInfoGetSymbolicIcon , - - --- ** fileInfoGetSymlinkTarget - fileInfoGetSymlinkTarget , - - --- ** fileInfoHasAttribute - fileInfoHasAttribute , - - --- ** fileInfoHasNamespace - fileInfoHasNamespace , - - --- ** fileInfoListAttributes - fileInfoListAttributes , - - --- ** fileInfoNew - fileInfoNew , - - --- ** fileInfoRemoveAttribute - fileInfoRemoveAttribute , - - --- ** fileInfoSetAttribute - fileInfoSetAttribute , - - --- ** fileInfoSetAttributeBoolean - fileInfoSetAttributeBoolean , - - --- ** fileInfoSetAttributeByteString - fileInfoSetAttributeByteString , - - --- ** fileInfoSetAttributeInt32 - fileInfoSetAttributeInt32 , - - --- ** fileInfoSetAttributeInt64 - fileInfoSetAttributeInt64 , - - --- ** fileInfoSetAttributeMask - fileInfoSetAttributeMask , - - --- ** fileInfoSetAttributeObject - fileInfoSetAttributeObject , - - --- ** fileInfoSetAttributeStatus - fileInfoSetAttributeStatus , - - --- ** fileInfoSetAttributeString - fileInfoSetAttributeString , - - --- ** fileInfoSetAttributeStringv - fileInfoSetAttributeStringv , - - --- ** fileInfoSetAttributeUint32 - fileInfoSetAttributeUint32 , - - --- ** fileInfoSetAttributeUint64 - fileInfoSetAttributeUint64 , - - --- ** fileInfoSetContentType - fileInfoSetContentType , - - --- ** fileInfoSetDisplayName - fileInfoSetDisplayName , - - --- ** fileInfoSetEditName - fileInfoSetEditName , - - --- ** fileInfoSetFileType - fileInfoSetFileType , - - --- ** fileInfoSetIcon - fileInfoSetIcon , - - --- ** fileInfoSetIsHidden - fileInfoSetIsHidden , - - --- ** fileInfoSetIsSymlink - fileInfoSetIsSymlink , - - --- ** fileInfoSetModificationTime - fileInfoSetModificationTime , - - --- ** fileInfoSetName - fileInfoSetName , - - --- ** fileInfoSetSize - fileInfoSetSize , - - --- ** fileInfoSetSortOrder - fileInfoSetSortOrder , - - --- ** fileInfoSetSymbolicIcon - fileInfoSetSymbolicIcon , - - --- ** fileInfoSetSymlinkTarget - fileInfoSetSymlinkTarget , - - --- ** fileInfoUnsetAttributeMask - fileInfoUnsetAttributeMask , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gio.Types -import GI.Gio.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -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 instance AttributeList FileInfo = FileInfoAttributeList -type FileInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileInfo = FileInfoSignalList -type FileInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileInfo::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileInfoClearStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_clear_status _obj' - touchManagedPtr _obj - return () - --- method FileInfo::copy_into --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- dest_info - m () -fileInfoCopyInto _obj dest_info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest_info' = unsafeManagedPtrCastPtr dest_info - g_file_info_copy_into _obj' dest_info' - touchManagedPtr _obj - touchManagedPtr dest_info - return () - --- method FileInfo::dup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_as_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_boolean --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "value_pp", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - Ptr CUInt -> -- status : TInterface "Gio" "FileAttributeStatus" - IO CInt - - -fileInfoGetAttributeData :: - (MonadIO m, FileInfoK a) => - a -> -- _obj - T.Text -> -- attribute - m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus) -fileInfoGetAttributeData _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - type_ <- allocMem :: IO (Ptr CUInt) - value_pp <- allocMem :: IO (Ptr (Ptr ())) - status <- allocMem :: IO (Ptr CUInt) - result <- g_file_info_get_attribute_data _obj' attribute' type_ value_pp status - let result' = (/= 0) result - type_' <- peek type_ - let type_'' = (toEnum . fromIntegral) type_' - value_pp' <- peek value_pp - status' <- peek status - let status'' = (toEnum . fromIntegral) status' - touchManagedPtr _obj - freeMem attribute' - freeMem type_ - freeMem value_pp - freeMem status - return (result', type_'', value_pp', status'') - --- method FileInfo::get_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 - --- method FileInfo::get_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 - --- method FileInfo::get_attribute_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_stringv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method FileInfo::get_attribute_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 - --- method FileInfo::get_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 - --- method FileInfo::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_deletion_date --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_edit_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_etag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_file_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_is_backup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileInfoGetIsBackup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_backup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileInfo::get_is_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileInfoGetIsHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileInfo::get_is_symlink --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileInfoGetIsSymlink _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_symlink _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileInfo::get_modification_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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_' - --- method FileInfo::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileInfoGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_size _obj' - touchManagedPtr _obj - return result - --- method FileInfo::get_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileInfoGetSortOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_sort_order _obj' - touchManagedPtr _obj - return result - --- method FileInfo::get_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::get_symlink_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::has_attribute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::has_namespace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- name_space - m Bool -fileInfoHasNamespace _obj name_space = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name_space' <- textToCString name_space - result <- g_file_info_has_namespace _obj' name_space' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name_space' - return result' - --- method FileInfo::list_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- name_space - m [T.Text] -fileInfoListAttributes _obj name_space = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name_space' <- textToCString name_space - result <- g_file_info_list_attributes _obj' name_space' - checkUnexpectedReturnNULL "g_file_info_list_attributes" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem name_space' - return result' - --- method FileInfo::remove_attribute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -fileInfoRemoveAttribute _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_remove_attribute _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -fileInfoSetAttribute :: - (MonadIO m, FileInfoK a) => - a -> -- _obj - T.Text -> -- attribute - FileAttributeType -> -- type - Ptr () -> -- value_p - m () -fileInfoSetAttribute _obj attribute type_ value_p = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let type_' = (fromIntegral . fromEnum) type_ - g_file_info_set_attribute _obj' attribute' type_' value_p - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_boolean --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- attr_value - m () -fileInfoSetAttributeBoolean _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let attr_value' = (fromIntegral . fromEnum) attr_value - g_file_info_set_attribute_boolean _obj' attribute' attr_value' - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- attr_value - m () -fileInfoSetAttributeByteString _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - attr_value' <- textToCString attr_value - g_file_info_set_attribute_byte_string _obj' attribute' attr_value' - touchManagedPtr _obj - freeMem attribute' - freeMem attr_value' - return () - --- method FileInfo::set_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attr_value - m () -fileInfoSetAttributeInt32 _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_int32 _obj' attribute' attr_value - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attr_value - m () -fileInfoSetAttributeInt64 _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_int64 _obj' attribute' attr_value - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_mask --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileInfo::set_attribute_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attr_value - m () -fileInfoSetAttributeObject _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let attr_value' = unsafeManagedPtrCastPtr attr_value - g_file_info_set_attribute_object _obj' attribute' attr_value' - touchManagedPtr _obj - touchManagedPtr attr_value - freeMem attribute' - return () - --- method FileInfo::set_attribute_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileInfo::set_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- attr_value - m () -fileInfoSetAttributeString _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - attr_value' <- textToCString attr_value - g_file_info_set_attribute_string _obj' attribute' attr_value' - touchManagedPtr _obj - freeMem attribute' - freeMem attr_value' - return () - --- method FileInfo::set_attribute_stringv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- attr_value - m () -fileInfoSetAttributeStringv _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_stringv _obj' attribute' attr_value - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attr_value - m () -fileInfoSetAttributeUint32 _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_uint32 _obj' attribute' attr_value - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attr_value - m () -fileInfoSetAttributeUint64 _obj attribute attr_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_uint64 _obj' attribute' attr_value - touchManagedPtr _obj - freeMem attribute' - return () - --- method FileInfo::set_content_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- content_type - m () -fileInfoSetContentType _obj content_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type - g_file_info_set_content_type _obj' content_type' - touchManagedPtr _obj - freeMem content_type' - return () - --- method FileInfo::set_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- display_name - m () -fileInfoSetDisplayName _obj display_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - display_name' <- textToCString display_name - g_file_info_set_display_name _obj' display_name' - touchManagedPtr _obj - freeMem display_name' - return () - --- method FileInfo::set_edit_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- edit_name - m () -fileInfoSetEditName _obj edit_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - edit_name' <- textToCString edit_name - g_file_info_set_edit_name _obj' edit_name' - touchManagedPtr _obj - freeMem edit_name' - return () - --- method FileInfo::set_file_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileInfo::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileInfo::set_is_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- is_hidden - m () -fileInfoSetIsHidden _obj is_hidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_hidden' = (fromIntegral . fromEnum) is_hidden - g_file_info_set_is_hidden _obj' is_hidden' - touchManagedPtr _obj - return () - --- method FileInfo::set_is_symlink --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- is_symlink - m () -fileInfoSetIsSymlink _obj is_symlink = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_symlink' = (fromIntegral . fromEnum) is_symlink - g_file_info_set_is_symlink _obj' is_symlink' - touchManagedPtr _obj - return () - --- method FileInfo::set_modification_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileInfo::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -fileInfoSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - g_file_info_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method FileInfo::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileInfoSetSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_set_size _obj' size - touchManagedPtr _obj - return () - --- method FileInfo::set_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- sort_order - m () -fileInfoSetSortOrder _obj sort_order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_set_sort_order _obj' sort_order - touchManagedPtr _obj - return () - --- method FileInfo::set_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileInfo::set_symlink_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_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 -> -- symlink_target - m () -fileInfoSetSymlinkTarget _obj symlink_target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - symlink_target' <- textToCString symlink_target - g_file_info_set_symlink_target _obj' symlink_target' - touchManagedPtr _obj - freeMem symlink_target' - return () - --- method FileInfo::unset_attribute_mask --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileInfoUnsetAttributeMask _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_unset_attribute_mask _obj' - touchManagedPtr _obj - return () + +{- | +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 Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gio.Types +import GI.Gio.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject + +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 : 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : 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 : 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 : 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 : 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 TVoid, 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 : 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 TVoid + 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : TBasicType TVoid +-- 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 : 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 [T.Text] -- result +fileInfoListAttributes _obj nameSpace = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + nameSpace' <- textToCString nameSpace + result <- g_file_info_list_attributes _obj' nameSpace' + checkUnexpectedReturnNULL "g_file_info_list_attributes" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr _obj + freeMem nameSpace' + return result' + +data FileInfoListAttributesMethodInfo +instance (signature ~ (T.Text -> m [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 : TBasicType TVoid +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_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 TVoid + 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 : TBasicType TVoid +-- 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 --- a/GI/Gio/Objects/FileInfo.hs-boot +++ b/GI/Gio/Objects/FileInfo.hs-boot @@ -11,3 +11,65 @@ 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 --- a/GI/Gio/Objects/FileInputStream.hs +++ b/GI/Gio/Objects/FileInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** fileInputStreamQueryInfo + FileInputStreamQueryInfoMethodInfo , fileInputStreamQueryInfo , -- ** fileInputStreamQueryInfoAsync + FileInputStreamQueryInfoAsyncMethodInfo , fileInputStreamQueryInfoAsync , -- ** fileInputStreamQueryInfoFinish + FileInputStreamQueryInfoFinishMethodInfo, fileInputStreamQueryInfoFinish , @@ -64,17 +68,76 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileInputStream::query_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -89,10 +152,10 @@ fileInputStreamQueryInfo :: (MonadIO m, FileInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Maybe (b) -> -- cancellable - m FileInfo + a -- _obj + -> T.Text -- attributes + -> Maybe (b) -- cancellable + -> m FileInfo -- result fileInputStreamQueryInfo _obj attributes cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj attributes' <- textToCString attributes @@ -113,11 +176,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -134,13 +200,13 @@ fileInputStreamQueryInfoAsync :: (MonadIO m, FileInputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileInputStreamQueryInfoAsync _obj attributes io_priority cancellable callback = liftIO $ do + 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 @@ -155,18 +221,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_file_input_stream_query_info_async _obj' attributes' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -180,9 +249,9 @@ fileInputStreamQueryInfoFinish :: (MonadIO m, FileInputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m FileInfo + a -- _obj + -> b -- result_ + -> m FileInfo -- result fileInputStreamQueryInfoFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -196,5 +265,9 @@ ) (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 --- a/GI/Gio/Objects/FileInputStream.hs-boot +++ b/GI/Gio/Objects/FileInputStream.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Objects/FileMonitor.hs +++ b/GI/Gio/Objects/FileMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** fileMonitorCancel + FileMonitorCancelMethodInfo , fileMonitorCancel , -- ** fileMonitorEmitEvent + FileMonitorEmitEventMethodInfo , fileMonitorEmitEvent , -- ** fileMonitorIsCancelled + FileMonitorIsCancelledMethodInfo , fileMonitorIsCancelled , -- ** fileMonitorSetRateLimit + FileMonitorSetRateLimitMethodInfo , fileMonitorSetRateLimit , @@ -98,6 +103,43 @@ 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 -> @@ -131,16 +173,16 @@ CUInt -> Ptr () -> IO () -fileMonitorChangedCallbackWrapper _cb _ file other_file event_type _ = do +fileMonitorChangedCallbackWrapper _cb _ file otherFile eventType _ = do file' <- (newObject File) file - maybeOther_file <- - if other_file == nullPtr + maybeOtherFile <- + if otherFile == nullPtr then return Nothing else do - other_file' <- (newObject File) other_file - return $ Just other_file' - let event_type' = (toEnum . fromIntegral) event_type - _cb file' maybeOther_file event_type' + 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 @@ -166,7 +208,7 @@ type AttrSetTypeConstraint FileMonitorCancelledPropertyInfo = (~) () type AttrBaseTypeConstraint FileMonitorCancelledPropertyInfo = FileMonitorK type AttrGetType FileMonitorCancelledPropertyInfo = Bool - type AttrLabel FileMonitorCancelledPropertyInfo = "FileMonitor::cancelled" + type AttrLabel FileMonitorCancelledPropertyInfo = "cancelled" attrGet _ = getFileMonitorCancelled attrSet _ = undefined attrConstruct _ = undefined @@ -190,13 +232,13 @@ type AttrSetTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32 type AttrBaseTypeConstraint FileMonitorRateLimitPropertyInfo = FileMonitorK type AttrGetType FileMonitorRateLimitPropertyInfo = Int32 - type AttrLabel FileMonitorRateLimitPropertyInfo = "FileMonitor::rate-limit" + type AttrLabel FileMonitorRateLimitPropertyInfo = "rate-limit" attrGet _ = getFileMonitorRateLimit attrSet _ = setFileMonitorRateLimit attrConstruct _ = constructFileMonitorRateLimit type instance AttributeList FileMonitor = FileMonitorAttributeList -type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rate-limit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)]) +type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rateLimit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)]) data FileMonitorChangedSignalInfo instance SignalInfo FileMonitorChangedSignalInfo where @@ -204,13 +246,12 @@ connectSignal _ = connectFileMonitorChanged type instance SignalList FileMonitor = FileMonitorSignalList -type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileMonitor::cancel -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -222,8 +263,8 @@ fileMonitorCancel :: (MonadIO m, FileMonitorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fileMonitorCancel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_monitor_cancel _obj' @@ -231,11 +272,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_type", argType = TInterface "Gio" "FileMonitorEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_type", argType = TInterface "Gio" "FileMonitorEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -250,27 +294,30 @@ fileMonitorEmitEvent :: (MonadIO m, FileMonitorK a, FileK b, FileK c) => - a -> -- _obj - b -> -- child - c -> -- other_file - FileMonitorEvent -> -- event_type - m () -fileMonitorEmitEvent _obj child other_file event_type = liftIO $ do + 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 other_file' = unsafeManagedPtrCastPtr other_file - let event_type' = (fromIntegral . fromEnum) event_type - g_file_monitor_emit_event _obj' child' other_file' event_type' + let otherFile' = unsafeManagedPtrCastPtr otherFile + let eventType' = (fromIntegral . fromEnum) eventType + g_file_monitor_emit_event _obj' child' otherFile' eventType' touchManagedPtr _obj touchManagedPtr child - touchManagedPtr other_file + 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 {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -282,8 +329,8 @@ fileMonitorIsCancelled :: (MonadIO m, FileMonitorK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result fileMonitorIsCancelled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_monitor_is_cancelled _obj' @@ -291,11 +338,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit_msecs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit_msecs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -308,13 +358,17 @@ fileMonitorSetRateLimit :: (MonadIO m, FileMonitorK a) => - a -> -- _obj - Int32 -> -- limit_msecs - m () -fileMonitorSetRateLimit _obj limit_msecs = liftIO $ do + a -- _obj + -> Int32 -- limitMsecs + -> m () -- result +fileMonitorSetRateLimit _obj limitMsecs = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_file_monitor_set_rate_limit _obj' limit_msecs + 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 --- a/GI/Gio/Objects/FileMonitor.hs-boot +++ b/GI/Gio/Objects/FileMonitor.hs-boot @@ -14,3 +14,7 @@ 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 --- a/GI/Gio/Objects/FileOutputStream.hs +++ b/GI/Gio/Objects/FileOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** fileOutputStreamGetEtag + FileOutputStreamGetEtagMethodInfo , fileOutputStreamGetEtag , -- ** fileOutputStreamQueryInfo + FileOutputStreamQueryInfoMethodInfo , fileOutputStreamQueryInfo , -- ** fileOutputStreamQueryInfoAsync + FileOutputStreamQueryInfoAsyncMethodInfo, fileOutputStreamQueryInfoAsync , -- ** fileOutputStreamQueryInfoFinish + FileOutputStreamQueryInfoFinishMethodInfo, fileOutputStreamQueryInfoFinish , @@ -68,17 +73,81 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FileOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FileOutputStream::get_etag -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -90,8 +159,8 @@ fileOutputStreamGetEtag :: (MonadIO m, FileOutputStreamK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result fileOutputStreamGetEtag _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_file_output_stream_get_etag _obj' @@ -101,11 +170,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -120,10 +192,10 @@ fileOutputStreamQueryInfo :: (MonadIO m, FileOutputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Maybe (b) -> -- cancellable - m FileInfo + a -- _obj + -> T.Text -- attributes + -> Maybe (b) -- cancellable + -> m FileInfo -- result fileOutputStreamQueryInfo _obj attributes cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj attributes' <- textToCString attributes @@ -144,11 +216,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -165,13 +240,13 @@ fileOutputStreamQueryInfoAsync :: (MonadIO m, FileOutputStreamK a, CancellableK b) => - a -> -- _obj - T.Text -> -- attributes - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -fileOutputStreamQueryInfoAsync _obj attributes io_priority cancellable callback = liftIO $ do + 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 @@ -186,18 +261,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_file_output_stream_query_info_async _obj' attributes' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : True -- Skip return : False @@ -211,9 +289,9 @@ fileOutputStreamQueryInfoFinish :: (MonadIO m, FileOutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m FileInfo + a -- _obj + -> b -- result_ + -> m FileInfo -- result fileOutputStreamQueryInfoFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -227,5 +305,9 @@ ) (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 --- a/GI/Gio/Objects/FileOutputStream.hs-boot +++ b/GI/Gio/Objects/FileOutputStream.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/FilenameCompleter.hs +++ b/GI/Gio/Objects/FilenameCompleter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** filenameCompleterGetCompletionSuffix + FilenameCompleterGetCompletionSuffixMethodInfo, filenameCompleterGetCompletionSuffix , -- ** filenameCompleterGetCompletions + FilenameCompleterGetCompletionsMethodInfo, filenameCompleterGetCompletions , @@ -29,6 +32,7 @@ -- ** filenameCompleterSetDirsOnly + FilenameCompleterSetDirsOnlyMethodInfo , filenameCompleterSetDirsOnly , @@ -83,6 +87,42 @@ 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 () @@ -130,13 +170,12 @@ connectSignal _ = connectFilenameCompleterGotCompletionData type instance SignalList FilenameCompleter = FilenameCompleterSignalList -type FilenameCompleterSignalList = ('[ '("got-completion-data", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FilenameCompleterSignalList = ('[ '("gotCompletionData", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FilenameCompleter::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "FilenameCompleter" -- throws : False -- Skip return : False @@ -147,7 +186,7 @@ filenameCompleterNew :: (MonadIO m) => - m FilenameCompleter + m FilenameCompleter -- result filenameCompleterNew = liftIO $ do result <- g_filename_completer_new checkUnexpectedReturnNULL "g_filename_completer_new" result @@ -156,9 +195,8 @@ -- method FilenameCompleter::get_completion_suffix -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -171,25 +209,28 @@ filenameCompleterGetCompletionSuffix :: (MonadIO m, FilenameCompleterK a) => - a -> -- _obj - T.Text -> -- initial_text - m T.Text -filenameCompleterGetCompletionSuffix _obj initial_text = liftIO $ do + a -- _obj + -> T.Text -- initialText + -> m T.Text -- result +filenameCompleterGetCompletionSuffix _obj initialText = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - initial_text' <- textToCString initial_text - result <- g_filename_completer_get_completion_suffix _obj' initial_text' + 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 initial_text' + 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 {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -202,26 +243,29 @@ filenameCompleterGetCompletions :: (MonadIO m, FilenameCompleterK a) => - a -> -- _obj - T.Text -> -- initial_text - m [T.Text] -filenameCompleterGetCompletions _obj initial_text = liftIO $ do + a -- _obj + -> T.Text -- initialText + -> m [T.Text] -- result +filenameCompleterGetCompletions _obj initialText = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - initial_text' <- textToCString initial_text - result <- g_filename_completer_get_completions _obj' initial_text' + 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 initial_text' + 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 {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dirs_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dirs_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -234,14 +278,18 @@ filenameCompleterSetDirsOnly :: (MonadIO m, FilenameCompleterK a) => - a -> -- _obj - Bool -> -- dirs_only - m () -filenameCompleterSetDirsOnly _obj dirs_only = liftIO $ do + a -- _obj + -> Bool -- dirsOnly + -> m () -- result +filenameCompleterSetDirsOnly _obj dirsOnly = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let dirs_only' = (fromIntegral . fromEnum) dirs_only - g_filename_completer_set_dirs_only _obj' dirs_only' + 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 --- a/GI/Gio/Objects/FilenameCompleter.hs-boot +++ b/GI/Gio/Objects/FilenameCompleter.hs-boot @@ -12,3 +12,6 @@ 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 --- a/GI/Gio/Objects/FilterInputStream.hs +++ b/GI/Gio/Objects/FilterInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** filterInputStreamGetBaseStream + FilterInputStreamGetBaseStreamMethodInfo, filterInputStreamGetBaseStream , -- ** filterInputStreamGetCloseBaseStream + FilterInputStreamGetCloseBaseStreamMethodInfo, filterInputStreamGetCloseBaseStream , -- ** filterInputStreamSetCloseBaseStream + FilterInputStreamSetCloseBaseStreamMethodInfo, filterInputStreamSetCloseBaseStream , @@ -80,6 +84,61 @@ 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] @@ -96,7 +155,7 @@ type AttrSetTypeConstraint FilterInputStreamBaseStreamPropertyInfo = InputStreamK type AttrBaseTypeConstraint FilterInputStreamBaseStreamPropertyInfo = FilterInputStreamK type AttrGetType FilterInputStreamBaseStreamPropertyInfo = InputStream - type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "FilterInputStream::base-stream" + type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "base-stream" attrGet _ = getFilterInputStreamBaseStream attrSet _ = undefined attrConstruct _ = constructFilterInputStreamBaseStream @@ -120,22 +179,21 @@ type AttrSetTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = (~) Bool type AttrBaseTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = FilterInputStreamK type AttrGetType FilterInputStreamCloseBaseStreamPropertyInfo = Bool - type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "FilterInputStream::close-base-stream" + type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "close-base-stream" attrGet _ = getFilterInputStreamCloseBaseStream attrSet _ = setFilterInputStreamCloseBaseStream attrConstruct _ = constructFilterInputStreamCloseBaseStream type instance AttributeList FilterInputStream = FilterInputStreamAttributeList -type FilterInputStreamAttributeList = ('[ '("base-stream", FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) +type FilterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FilterInputStream = FilterInputStreamSignalList -type FilterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FilterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FilterInputStream::get_base_stream -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : False -- Skip return : False @@ -147,8 +205,8 @@ filterInputStreamGetBaseStream :: (MonadIO m, FilterInputStreamK a) => - a -> -- _obj - m InputStream + a -- _obj + -> m InputStream -- result filterInputStreamGetBaseStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_filter_input_stream_get_base_stream _obj' @@ -157,11 +215,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -173,8 +234,8 @@ filterInputStreamGetCloseBaseStream :: (MonadIO m, FilterInputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result filterInputStreamGetCloseBaseStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_filter_input_stream_get_close_base_stream _obj' @@ -182,11 +243,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -199,14 +263,18 @@ filterInputStreamSetCloseBaseStream :: (MonadIO m, FilterInputStreamK a) => - a -> -- _obj - Bool -> -- close_base - m () -filterInputStreamSetCloseBaseStream _obj close_base = liftIO $ do + a -- _obj + -> Bool -- closeBase + -> m () -- result +filterInputStreamSetCloseBaseStream _obj closeBase = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let close_base' = (fromIntegral . fromEnum) close_base - g_filter_input_stream_set_close_base_stream _obj' close_base' + 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 --- a/GI/Gio/Objects/FilterInputStream.hs-boot +++ b/GI/Gio/Objects/FilterInputStream.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/FilterOutputStream.hs +++ b/GI/Gio/Objects/FilterOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** filterOutputStreamGetBaseStream + FilterOutputStreamGetBaseStreamMethodInfo, filterOutputStreamGetBaseStream , -- ** filterOutputStreamGetCloseBaseStream + FilterOutputStreamGetCloseBaseStreamMethodInfo, filterOutputStreamGetCloseBaseStream , -- ** filterOutputStreamSetCloseBaseStream + FilterOutputStreamSetCloseBaseStreamMethodInfo, filterOutputStreamSetCloseBaseStream , @@ -79,6 +83,65 @@ 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] @@ -95,7 +158,7 @@ type AttrSetTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = OutputStreamK type AttrBaseTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = FilterOutputStreamK type AttrGetType FilterOutputStreamBaseStreamPropertyInfo = OutputStream - type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "FilterOutputStream::base-stream" + type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "base-stream" attrGet _ = getFilterOutputStreamBaseStream attrSet _ = undefined attrConstruct _ = constructFilterOutputStreamBaseStream @@ -116,22 +179,21 @@ type AttrSetTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = (~) Bool type AttrBaseTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = FilterOutputStreamK type AttrGetType FilterOutputStreamCloseBaseStreamPropertyInfo = Bool - type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "FilterOutputStream::close-base-stream" + type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "close-base-stream" attrGet _ = getFilterOutputStreamCloseBaseStream attrSet _ = undefined attrConstruct _ = constructFilterOutputStreamCloseBaseStream type instance AttributeList FilterOutputStream = FilterOutputStreamAttributeList -type FilterOutputStreamAttributeList = ('[ '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) +type FilterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList FilterOutputStream = FilterOutputStreamSignalList -type FilterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type FilterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method FilterOutputStream::get_base_stream -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "OutputStream" -- throws : False -- Skip return : False @@ -143,8 +205,8 @@ filterOutputStreamGetBaseStream :: (MonadIO m, FilterOutputStreamK a) => - a -> -- _obj - m OutputStream + a -- _obj + -> m OutputStream -- result filterOutputStreamGetBaseStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_filter_output_stream_get_base_stream _obj' @@ -153,11 +215,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -169,8 +234,8 @@ filterOutputStreamGetCloseBaseStream :: (MonadIO m, FilterOutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result filterOutputStreamGetCloseBaseStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_filter_output_stream_get_close_base_stream _obj' @@ -178,11 +243,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -195,14 +263,18 @@ filterOutputStreamSetCloseBaseStream :: (MonadIO m, FilterOutputStreamK a) => - a -> -- _obj - Bool -> -- close_base - m () -filterOutputStreamSetCloseBaseStream _obj close_base = liftIO $ do + a -- _obj + -> Bool -- closeBase + -> m () -- result +filterOutputStreamSetCloseBaseStream _obj closeBase = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let close_base' = (fromIntegral . fromEnum) close_base - g_filter_output_stream_set_close_base_stream _obj' close_base' + 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 --- a/GI/Gio/Objects/FilterOutputStream.hs-boot +++ b/GI/Gio/Objects/FilterOutputStream.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/IOStream.hs +++ b/GI/Gio/Objects/IOStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * 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 , @@ -114,6 +125,49 @@ 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] @@ -127,7 +181,7 @@ type AttrSetTypeConstraint IOStreamClosedPropertyInfo = (~) () type AttrBaseTypeConstraint IOStreamClosedPropertyInfo = IOStreamK type AttrGetType IOStreamClosedPropertyInfo = Bool - type AttrLabel IOStreamClosedPropertyInfo = "IOStream::closed" + type AttrLabel IOStreamClosedPropertyInfo = "closed" attrGet _ = getIOStreamClosed attrSet _ = undefined attrConstruct _ = undefined @@ -145,7 +199,7 @@ type AttrSetTypeConstraint IOStreamInputStreamPropertyInfo = (~) () type AttrBaseTypeConstraint IOStreamInputStreamPropertyInfo = IOStreamK type AttrGetType IOStreamInputStreamPropertyInfo = InputStream - type AttrLabel IOStreamInputStreamPropertyInfo = "IOStream::input-stream" + type AttrLabel IOStreamInputStreamPropertyInfo = "input-stream" attrGet _ = getIOStreamInputStream attrSet _ = undefined attrConstruct _ = undefined @@ -163,22 +217,21 @@ type AttrSetTypeConstraint IOStreamOutputStreamPropertyInfo = (~) () type AttrBaseTypeConstraint IOStreamOutputStreamPropertyInfo = IOStreamK type AttrGetType IOStreamOutputStreamPropertyInfo = OutputStream - type AttrLabel IOStreamOutputStreamPropertyInfo = "IOStream::output-stream" + type AttrLabel IOStreamOutputStreamPropertyInfo = "output-stream" attrGet _ = getIOStreamOutputStream attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList IOStream = IOStreamAttributeList -type IOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) +type IOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) type instance SignalList IOStream = IOStreamSignalList -type IOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type IOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method IOStream::clear_pending -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -190,19 +243,22 @@ iOStreamClearPending :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -216,9 +272,9 @@ iOStreamClose :: (MonadIO m, IOStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result iOStreamClose _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -235,11 +291,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -255,12 +314,12 @@ iOStreamCloseAsync :: (MonadIO m, IOStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -iOStreamCloseAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -274,17 +333,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_io_stream_close_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -298,9 +360,9 @@ iOStreamCloseFinish :: (MonadIO m, IOStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result iOStreamCloseFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -313,11 +375,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : False -- Skip return : False @@ -329,8 +394,8 @@ iOStreamGetInputStream :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m InputStream + a -- _obj + -> m InputStream -- result iOStreamGetInputStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_io_stream_get_input_stream _obj' @@ -339,11 +404,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "OutputStream" -- throws : False -- Skip return : False @@ -355,8 +423,8 @@ iOStreamGetOutputStream :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m OutputStream + a -- _obj + -> m OutputStream -- result iOStreamGetOutputStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_io_stream_get_output_stream _obj' @@ -365,11 +433,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -381,8 +452,8 @@ iOStreamHasPending :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result iOStreamHasPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_io_stream_has_pending _obj' @@ -390,11 +461,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -406,8 +480,8 @@ iOStreamIsClosed :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result iOStreamIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_io_stream_is_closed _obj' @@ -415,11 +489,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -432,8 +509,8 @@ iOStreamSetPending :: (MonadIO m, IOStreamK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result iOStreamSetPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -444,11 +521,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream2", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "IOStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream2", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "IOStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -466,14 +546,14 @@ iOStreamSpliceAsync :: (MonadIO m, IOStreamK a, IOStreamK b, CancellableK c) => - a -> -- _obj - b -> -- stream2 - [IOStreamSpliceFlags] -> -- flags - Int32 -> -- io_priority - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -iOStreamSpliceAsync _obj stream2 flags io_priority cancellable callback = liftIO $ do + 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 @@ -489,18 +569,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_io_stream_splice_async _obj' stream2' flags' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -513,8 +596,8 @@ iOStreamSpliceFinish :: (MonadIO m, AsyncResultK a) => - a -> -- result - m () + a -- result_ + -> m () -- result iOStreamSpliceFinish result_ = liftIO $ do let result_' = unsafeManagedPtrCastPtr result_ onException (do diff --git a/GI/Gio/Objects/IOStream.hs-boot b/GI/Gio/Objects/IOStream.hs-boot --- a/GI/Gio/Objects/IOStream.hs-boot +++ b/GI/Gio/Objects/IOStream.hs-boot @@ -14,3 +14,13 @@ 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 --- a/GI/Gio/Objects/InetAddress.hs +++ b/GI/Gio/Objects/InetAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * 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 , @@ -85,6 +99,7 @@ -- ** inetAddressToString + InetAddressToStringMethodInfo , inetAddressToString , @@ -189,6 +204,53 @@ 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 TVoid -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -205,7 +267,7 @@ type AttrSetTypeConstraint InetAddressBytesPropertyInfo = (~) (Ptr ()) type AttrBaseTypeConstraint InetAddressBytesPropertyInfo = InetAddressK type AttrGetType InetAddressBytesPropertyInfo = (Ptr ()) - type AttrLabel InetAddressBytesPropertyInfo = "InetAddress::bytes" + type AttrLabel InetAddressBytesPropertyInfo = "bytes" attrGet _ = getInetAddressBytes attrSet _ = undefined attrConstruct _ = constructInetAddressBytes @@ -226,7 +288,7 @@ type AttrSetTypeConstraint InetAddressFamilyPropertyInfo = (~) SocketFamily type AttrBaseTypeConstraint InetAddressFamilyPropertyInfo = InetAddressK type AttrGetType InetAddressFamilyPropertyInfo = SocketFamily - type AttrLabel InetAddressFamilyPropertyInfo = "InetAddress::family" + type AttrLabel InetAddressFamilyPropertyInfo = "family" attrGet _ = getInetAddressFamily attrSet _ = undefined attrConstruct _ = constructInetAddressFamily @@ -244,7 +306,7 @@ type AttrSetTypeConstraint InetAddressIsAnyPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsAnyPropertyInfo = InetAddressK type AttrGetType InetAddressIsAnyPropertyInfo = Bool - type AttrLabel InetAddressIsAnyPropertyInfo = "InetAddress::is-any" + type AttrLabel InetAddressIsAnyPropertyInfo = "is-any" attrGet _ = getInetAddressIsAny attrSet _ = undefined attrConstruct _ = undefined @@ -262,7 +324,7 @@ type AttrSetTypeConstraint InetAddressIsLinkLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsLinkLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsLinkLocalPropertyInfo = Bool - type AttrLabel InetAddressIsLinkLocalPropertyInfo = "InetAddress::is-link-local" + type AttrLabel InetAddressIsLinkLocalPropertyInfo = "is-link-local" attrGet _ = getInetAddressIsLinkLocal attrSet _ = undefined attrConstruct _ = undefined @@ -280,7 +342,7 @@ type AttrSetTypeConstraint InetAddressIsLoopbackPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsLoopbackPropertyInfo = InetAddressK type AttrGetType InetAddressIsLoopbackPropertyInfo = Bool - type AttrLabel InetAddressIsLoopbackPropertyInfo = "InetAddress::is-loopback" + type AttrLabel InetAddressIsLoopbackPropertyInfo = "is-loopback" attrGet _ = getInetAddressIsLoopback attrSet _ = undefined attrConstruct _ = undefined @@ -298,7 +360,7 @@ type AttrSetTypeConstraint InetAddressIsMcGlobalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMcGlobalPropertyInfo = InetAddressK type AttrGetType InetAddressIsMcGlobalPropertyInfo = Bool - type AttrLabel InetAddressIsMcGlobalPropertyInfo = "InetAddress::is-mc-global" + type AttrLabel InetAddressIsMcGlobalPropertyInfo = "is-mc-global" attrGet _ = getInetAddressIsMcGlobal attrSet _ = undefined attrConstruct _ = undefined @@ -316,7 +378,7 @@ type AttrSetTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsMcLinkLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcLinkLocalPropertyInfo = "InetAddress::is-mc-link-local" + type AttrLabel InetAddressIsMcLinkLocalPropertyInfo = "is-mc-link-local" attrGet _ = getInetAddressIsMcLinkLocal attrSet _ = undefined attrConstruct _ = undefined @@ -334,7 +396,7 @@ type AttrSetTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsMcNodeLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcNodeLocalPropertyInfo = "InetAddress::is-mc-node-local" + type AttrLabel InetAddressIsMcNodeLocalPropertyInfo = "is-mc-node-local" attrGet _ = getInetAddressIsMcNodeLocal attrSet _ = undefined attrConstruct _ = undefined @@ -352,7 +414,7 @@ type AttrSetTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsMcOrgLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcOrgLocalPropertyInfo = "InetAddress::is-mc-org-local" + type AttrLabel InetAddressIsMcOrgLocalPropertyInfo = "is-mc-org-local" attrGet _ = getInetAddressIsMcOrgLocal attrSet _ = undefined attrConstruct _ = undefined @@ -370,7 +432,7 @@ type AttrSetTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsMcSiteLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcSiteLocalPropertyInfo = "InetAddress::is-mc-site-local" + type AttrLabel InetAddressIsMcSiteLocalPropertyInfo = "is-mc-site-local" attrGet _ = getInetAddressIsMcSiteLocal attrSet _ = undefined attrConstruct _ = undefined @@ -388,7 +450,7 @@ type AttrSetTypeConstraint InetAddressIsMulticastPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsMulticastPropertyInfo = InetAddressK type AttrGetType InetAddressIsMulticastPropertyInfo = Bool - type AttrLabel InetAddressIsMulticastPropertyInfo = "InetAddress::is-multicast" + type AttrLabel InetAddressIsMulticastPropertyInfo = "is-multicast" attrGet _ = getInetAddressIsMulticast attrSet _ = undefined attrConstruct _ = undefined @@ -406,22 +468,21 @@ type AttrSetTypeConstraint InetAddressIsSiteLocalPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressIsSiteLocalPropertyInfo = InetAddressK type AttrGetType InetAddressIsSiteLocalPropertyInfo = Bool - type AttrLabel InetAddressIsSiteLocalPropertyInfo = "InetAddress::is-site-local" + type AttrLabel InetAddressIsSiteLocalPropertyInfo = "is-site-local" attrGet _ = getInetAddressIsSiteLocal attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList InetAddress = InetAddressAttributeList -type InetAddressAttributeList = ('[ '("bytes", InetAddressBytesPropertyInfo), '("family", InetAddressFamilyPropertyInfo), '("is-any", InetAddressIsAnyPropertyInfo), '("is-link-local", InetAddressIsLinkLocalPropertyInfo), '("is-loopback", InetAddressIsLoopbackPropertyInfo), '("is-mc-global", InetAddressIsMcGlobalPropertyInfo), '("is-mc-link-local", InetAddressIsMcLinkLocalPropertyInfo), '("is-mc-node-local", InetAddressIsMcNodeLocalPropertyInfo), '("is-mc-org-local", InetAddressIsMcOrgLocalPropertyInfo), '("is-mc-site-local", InetAddressIsMcSiteLocalPropertyInfo), '("is-multicast", InetAddressIsMulticastPropertyInfo), '("is-site-local", InetAddressIsSiteLocalPropertyInfo)] :: [(Symbol, *)]) +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, *)]) type instance SignalList InetAddress = InetAddressSignalList -type InetAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InetAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method InetAddress::new_any -- method type : Constructor --- Args : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -433,8 +494,8 @@ inetAddressNewAny :: (MonadIO m) => - SocketFamily -> -- family - m InetAddress + SocketFamily -- family + -> m InetAddress -- result inetAddressNewAny family = liftIO $ do let family' = (fromIntegral . fromEnum) family result <- g_inet_address_new_any family' @@ -444,9 +505,8 @@ -- method InetAddress::new_from_bytes -- method type : Constructor --- Args : [Arg {argName = "bytes", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "bytes", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -459,9 +519,9 @@ inetAddressNewFromBytes :: (MonadIO m) => - Ptr Word8 -> -- bytes - SocketFamily -> -- family - m InetAddress + 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' @@ -471,9 +531,8 @@ -- method InetAddress::new_from_string -- method type : Constructor --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -485,8 +544,8 @@ inetAddressNewFromString :: (MonadIO m) => - T.Text -> -- string - m InetAddress + T.Text -- string + -> m InetAddress -- result inetAddressNewFromString string = liftIO $ do string' <- textToCString string result <- g_inet_address_new_from_string string' @@ -497,9 +556,8 @@ -- method InetAddress::new_loopback -- method type : Constructor --- Args : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -511,8 +569,8 @@ inetAddressNewLoopback :: (MonadIO m) => - SocketFamily -> -- family - m InetAddress + SocketFamily -- family + -> m InetAddress -- result inetAddressNewLoopback family = liftIO $ do let family' = (fromIntegral . fromEnum) family result <- g_inet_address_new_loopback family' @@ -522,9 +580,8 @@ -- method InetAddress::equal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other_address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -537,23 +594,26 @@ inetAddressEqual :: (MonadIO m, InetAddressK a, InetAddressK b) => - a -> -- _obj - b -> -- other_address - m Bool -inetAddressEqual _obj other_address = liftIO $ do + a -- _obj + -> b -- otherAddress + -> m Bool -- result +inetAddressEqual _obj otherAddress = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let other_address' = unsafeManagedPtrCastPtr other_address - result <- g_inet_address_equal _obj' other_address' + let otherAddress' = unsafeManagedPtrCastPtr otherAddress + result <- g_inet_address_equal _obj' otherAddress' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr other_address + 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketFamily" -- throws : False -- Skip return : False @@ -565,8 +625,8 @@ inetAddressGetFamily :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m SocketFamily + a -- _obj + -> m SocketFamily -- result inetAddressGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_family _obj' @@ -574,11 +634,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -590,8 +653,8 @@ inetAddressGetIsAny :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsAny _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_any _obj' @@ -599,11 +662,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -615,8 +681,8 @@ inetAddressGetIsLinkLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsLinkLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_link_local _obj' @@ -624,11 +690,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -640,8 +709,8 @@ inetAddressGetIsLoopback :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsLoopback _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_loopback _obj' @@ -649,11 +718,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -665,8 +737,8 @@ inetAddressGetIsMcGlobal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMcGlobal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_mc_global _obj' @@ -674,11 +746,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -690,8 +765,8 @@ inetAddressGetIsMcLinkLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMcLinkLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_mc_link_local _obj' @@ -699,11 +774,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -715,8 +793,8 @@ inetAddressGetIsMcNodeLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMcNodeLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_mc_node_local _obj' @@ -724,11 +802,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -740,8 +821,8 @@ inetAddressGetIsMcOrgLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMcOrgLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_mc_org_local _obj' @@ -749,11 +830,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -765,8 +849,8 @@ inetAddressGetIsMcSiteLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMcSiteLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_mc_site_local _obj' @@ -774,11 +858,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -790,8 +877,8 @@ inetAddressGetIsMulticast :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsMulticast _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_multicast _obj' @@ -799,11 +886,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -815,8 +905,8 @@ inetAddressGetIsSiteLocal :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inetAddressGetIsSiteLocal _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_get_is_site_local _obj' @@ -824,11 +914,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -840,19 +933,22 @@ inetAddressGetNativeSize :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -864,8 +960,8 @@ inetAddressToString :: (MonadIO m, InetAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result inetAddressToString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_to_string _obj' @@ -874,5 +970,9 @@ 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 --- a/GI/Gio/Objects/InetAddress.hs-boot +++ b/GI/Gio/Objects/InetAddress.hs-boot @@ -23,3 +23,17 @@ 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 --- a/GI/Gio/Objects/InetAddressMask.hs +++ b/GI/Gio/Objects/InetAddressMask.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** inetAddressMaskEqual + InetAddressMaskEqualMethodInfo , inetAddressMaskEqual , -- ** inetAddressMaskGetAddress + InetAddressMaskGetAddressMethodInfo , inetAddressMaskGetAddress , -- ** inetAddressMaskGetFamily + InetAddressMaskGetFamilyMethodInfo , inetAddressMaskGetFamily , -- ** inetAddressMaskGetLength + InetAddressMaskGetLengthMethodInfo , inetAddressMaskGetLength , -- ** inetAddressMaskMatches + InetAddressMaskMatchesMethodInfo , inetAddressMaskMatches , @@ -45,6 +51,7 @@ -- ** inetAddressMaskToString + InetAddressMaskToStringMethodInfo , inetAddressMaskToString , @@ -106,6 +113,46 @@ 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] @@ -125,7 +172,7 @@ type AttrSetTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressK type AttrBaseTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressMaskK type AttrGetType InetAddressMaskAddressPropertyInfo = InetAddress - type AttrLabel InetAddressMaskAddressPropertyInfo = "InetAddressMask::address" + type AttrLabel InetAddressMaskAddressPropertyInfo = "address" attrGet _ = getInetAddressMaskAddress attrSet _ = setInetAddressMaskAddress attrConstruct _ = constructInetAddressMaskAddress @@ -143,7 +190,7 @@ type AttrSetTypeConstraint InetAddressMaskFamilyPropertyInfo = (~) () type AttrBaseTypeConstraint InetAddressMaskFamilyPropertyInfo = InetAddressMaskK type AttrGetType InetAddressMaskFamilyPropertyInfo = SocketFamily - type AttrLabel InetAddressMaskFamilyPropertyInfo = "InetAddressMask::family" + type AttrLabel InetAddressMaskFamilyPropertyInfo = "family" attrGet _ = getInetAddressMaskFamily attrSet _ = undefined attrConstruct _ = undefined @@ -167,7 +214,7 @@ type AttrSetTypeConstraint InetAddressMaskLengthPropertyInfo = (~) Word32 type AttrBaseTypeConstraint InetAddressMaskLengthPropertyInfo = InetAddressMaskK type AttrGetType InetAddressMaskLengthPropertyInfo = Word32 - type AttrLabel InetAddressMaskLengthPropertyInfo = "InetAddressMask::length" + type AttrLabel InetAddressMaskLengthPropertyInfo = "length" attrGet _ = getInetAddressMaskLength attrSet _ = setInetAddressMaskLength attrConstruct _ = constructInetAddressMaskLength @@ -176,13 +223,12 @@ type InetAddressMaskAttributeList = ('[ '("address", InetAddressMaskAddressPropertyInfo), '("family", InetAddressMaskFamilyPropertyInfo), '("length", InetAddressMaskLengthPropertyInfo)] :: [(Symbol, *)]) type instance SignalList InetAddressMask = InetAddressMaskSignalList -type InetAddressMaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InetAddressMaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method InetAddressMask::new -- method type : Constructor --- Args : [Arg {argName = "addr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "addr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddressMask" -- throws : True -- Skip return : False @@ -196,9 +242,9 @@ inetAddressMaskNew :: (MonadIO m, InetAddressK a) => - a -> -- addr - Word32 -> -- length - m InetAddressMask + a -- addr + -> Word32 -- length_ + -> m InetAddressMask -- result inetAddressMaskNew addr length_ = liftIO $ do let addr' = unsafeManagedPtrCastPtr addr onException (do @@ -213,9 +259,8 @@ -- method InetAddressMask::new_from_string -- method type : Constructor --- Args : [Arg {argName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddressMask" -- throws : True -- Skip return : False @@ -228,25 +273,24 @@ inetAddressMaskNewFromString :: (MonadIO m) => - T.Text -> -- mask_string - m InetAddressMask -inetAddressMaskNewFromString mask_string = liftIO $ do - mask_string' <- textToCString mask_string + T.Text -- maskString + -> m InetAddressMask -- result +inetAddressMaskNewFromString maskString = liftIO $ do + maskString' <- textToCString maskString onException (do - result <- propagateGError $ g_inet_address_mask_new_from_string mask_string' + result <- propagateGError $ g_inet_address_mask_new_from_string maskString' checkUnexpectedReturnNULL "g_inet_address_mask_new_from_string" result result' <- (wrapObject InetAddressMask) result - freeMem mask_string' + freeMem maskString' return result' ) (do - freeMem mask_string' + freeMem maskString' ) -- method InetAddressMask::equal -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask2", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask2", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -259,9 +303,9 @@ inetAddressMaskEqual :: (MonadIO m, InetAddressMaskK a, InetAddressMaskK b) => - a -> -- _obj - b -> -- mask2 - m Bool + a -- _obj + -> b -- mask2 + -> m Bool -- result inetAddressMaskEqual _obj mask2 = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mask2' = unsafeManagedPtrCastPtr mask2 @@ -271,11 +315,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -287,8 +334,8 @@ inetAddressMaskGetAddress :: (MonadIO m, InetAddressMaskK a) => - a -> -- _obj - m InetAddress + a -- _obj + -> m InetAddress -- result inetAddressMaskGetAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_mask_get_address _obj' @@ -297,11 +344,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketFamily" -- throws : False -- Skip return : False @@ -313,8 +363,8 @@ inetAddressMaskGetFamily :: (MonadIO m, InetAddressMaskK a) => - a -> -- _obj - m SocketFamily + a -- _obj + -> m SocketFamily -- result inetAddressMaskGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_mask_get_family _obj' @@ -322,11 +372,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -338,19 +391,22 @@ inetAddressMaskGetLength :: (MonadIO m, InetAddressMaskK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -363,9 +419,9 @@ inetAddressMaskMatches :: (MonadIO m, InetAddressMaskK a, InetAddressK b) => - a -> -- _obj - b -> -- address - m Bool + a -- _obj + -> b -- address + -> m Bool -- result inetAddressMaskMatches _obj address = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let address' = unsafeManagedPtrCastPtr address @@ -375,11 +431,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -391,8 +450,8 @@ inetAddressMaskToString :: (MonadIO m, InetAddressMaskK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result inetAddressMaskToString _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_address_mask_to_string _obj' @@ -401,5 +460,9 @@ 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 --- a/GI/Gio/Objects/InetAddressMask.hs-boot +++ b/GI/Gio/Objects/InetAddressMask.hs-boot @@ -14,3 +14,9 @@ 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 --- a/GI/Gio/Objects/InetSocketAddress.hs +++ b/GI/Gio/Objects/InetSocketAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** inetSocketAddressGetAddress + InetSocketAddressGetAddressMethodInfo , inetSocketAddressGetAddress , -- ** inetSocketAddressGetFlowinfo + InetSocketAddressGetFlowinfoMethodInfo , inetSocketAddressGetFlowinfo , -- ** inetSocketAddressGetPort + InetSocketAddressGetPortMethodInfo , inetSocketAddressGetPort , -- ** inetSocketAddressGetScopeId + InetSocketAddressGetScopeIdMethodInfo , inetSocketAddressGetScopeId , @@ -103,6 +108,48 @@ 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] @@ -119,7 +166,7 @@ type AttrSetTypeConstraint InetSocketAddressAddressPropertyInfo = InetAddressK type AttrBaseTypeConstraint InetSocketAddressAddressPropertyInfo = InetSocketAddressK type AttrGetType InetSocketAddressAddressPropertyInfo = InetAddress - type AttrLabel InetSocketAddressAddressPropertyInfo = "InetSocketAddress::address" + type AttrLabel InetSocketAddressAddressPropertyInfo = "address" attrGet _ = getInetSocketAddressAddress attrSet _ = undefined attrConstruct _ = constructInetSocketAddressAddress @@ -140,7 +187,7 @@ type AttrSetTypeConstraint InetSocketAddressFlowinfoPropertyInfo = (~) Word32 type AttrBaseTypeConstraint InetSocketAddressFlowinfoPropertyInfo = InetSocketAddressK type AttrGetType InetSocketAddressFlowinfoPropertyInfo = Word32 - type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "InetSocketAddress::flowinfo" + type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "flowinfo" attrGet _ = getInetSocketAddressFlowinfo attrSet _ = undefined attrConstruct _ = constructInetSocketAddressFlowinfo @@ -161,7 +208,7 @@ type AttrSetTypeConstraint InetSocketAddressPortPropertyInfo = (~) Word32 type AttrBaseTypeConstraint InetSocketAddressPortPropertyInfo = InetSocketAddressK type AttrGetType InetSocketAddressPortPropertyInfo = Word32 - type AttrLabel InetSocketAddressPortPropertyInfo = "InetSocketAddress::port" + type AttrLabel InetSocketAddressPortPropertyInfo = "port" attrGet _ = getInetSocketAddressPort attrSet _ = undefined attrConstruct _ = constructInetSocketAddressPort @@ -182,22 +229,21 @@ type AttrSetTypeConstraint InetSocketAddressScopeIdPropertyInfo = (~) Word32 type AttrBaseTypeConstraint InetSocketAddressScopeIdPropertyInfo = InetSocketAddressK type AttrGetType InetSocketAddressScopeIdPropertyInfo = Word32 - type AttrLabel InetSocketAddressScopeIdPropertyInfo = "InetSocketAddress::scope-id" + type AttrLabel InetSocketAddressScopeIdPropertyInfo = "scope-id" attrGet _ = getInetSocketAddressScopeId attrSet _ = undefined attrConstruct _ = constructInetSocketAddressScopeId type instance AttributeList InetSocketAddress = InetSocketAddressAttributeList -type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scope-id", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)]) +type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)]) type instance SignalList InetSocketAddress = InetSocketAddressSignalList -type InetSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InetSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method InetSocketAddress::new -- method type : Constructor --- Args : [Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetSocketAddress" -- throws : False -- Skip return : False @@ -210,9 +256,9 @@ inetSocketAddressNew :: (MonadIO m, InetAddressK a) => - a -> -- address - Word16 -> -- port - m InetSocketAddress + a -- address + -> Word16 -- port + -> m InetSocketAddress -- result inetSocketAddressNew address port = liftIO $ do let address' = unsafeManagedPtrCastPtr address result <- g_inet_socket_address_new address' port @@ -223,9 +269,8 @@ -- method InetSocketAddress::new_from_string -- method type : Constructor --- Args : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetSocketAddress" -- throws : False -- Skip return : False @@ -238,9 +283,9 @@ inetSocketAddressNewFromString :: (MonadIO m) => - T.Text -> -- address - Word32 -> -- port - m InetSocketAddress + 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 @@ -251,9 +296,8 @@ -- method InetSocketAddress::get_address -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InetAddress" -- throws : False -- Skip return : False @@ -265,8 +309,8 @@ inetSocketAddressGetAddress :: (MonadIO m, InetSocketAddressK a) => - a -> -- _obj - m InetAddress + a -- _obj + -> m InetAddress -- result inetSocketAddressGetAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_inet_socket_address_get_address _obj' @@ -275,11 +319,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -291,19 +338,22 @@ inetSocketAddressGetFlowinfo :: (MonadIO m, InetSocketAddressK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -315,19 +365,22 @@ inetSocketAddressGetPort :: (MonadIO m, InetSocketAddressK a) => - a -> -- _obj - m Word16 + 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 {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -339,12 +392,16 @@ inetSocketAddressGetScopeId :: (MonadIO m, InetSocketAddressK a) => - a -> -- _obj - m Word32 + 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 --- a/GI/Gio/Objects/InetSocketAddress.hs-boot +++ b/GI/Gio/Objects/InetSocketAddress.hs-boot @@ -15,3 +15,7 @@ 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 --- a/GI/Gio/Objects/InputStream.hs +++ b/GI/Gio/Objects/InputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,78 +18,97 @@ -- * 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 , @@ -129,17 +149,68 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type InputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method InputStream::clear_pending -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -151,19 +222,22 @@ inputStreamClearPending :: (MonadIO m, InputStreamK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -177,9 +251,9 @@ inputStreamClose :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result inputStreamClose _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -196,11 +270,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -216,12 +293,12 @@ inputStreamCloseAsync :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -inputStreamCloseAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -235,17 +312,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_input_stream_close_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -259,9 +339,9 @@ inputStreamCloseFinish :: (MonadIO m, InputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result inputStreamCloseFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -274,11 +354,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -290,8 +373,8 @@ inputStreamHasPending :: (MonadIO m, InputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inputStreamHasPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_input_stream_has_pending _obj' @@ -299,11 +382,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -315,8 +401,8 @@ inputStreamIsClosed :: (MonadIO m, InputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result inputStreamIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_input_stream_is_closed _obj' @@ -324,11 +410,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -344,10 +433,10 @@ inputStreamRead :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -367,11 +456,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TBoolean -- throws : True -- Skip return : False @@ -388,38 +480,41 @@ inputStreamReadAll :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m (Word64) + 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 - bytes_read <- allocMem :: IO (Ptr Word64) + 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 bytes_read maybeCancellable - bytes_read' <- peek bytes_read + _ <- propagateGError $ g_input_stream_read_all _obj' buffer' count bytesRead maybeCancellable + bytesRead' <- peek bytesRead touchManagedPtr _obj whenJust cancellable touchManagedPtr freeMem buffer' - freeMem bytes_read - return bytes_read' + freeMem bytesRead + return bytesRead' ) (do freeMem buffer' - freeMem bytes_read + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -437,13 +532,13 @@ inputStreamReadAllAsync :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -inputStreamReadAllAsync _obj buffer io_priority cancellable callback = liftIO $ do + 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 @@ -459,18 +554,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_input_stream_read_all_async _obj' buffer' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -485,29 +583,32 @@ inputStreamReadAllFinish :: (MonadIO m, InputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (Word64) + a -- _obj + -> b -- result_ + -> m (Word64) -- result inputStreamReadAllFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - bytes_read <- allocMem :: IO (Ptr Word64) + bytesRead <- allocMem :: IO (Ptr Word64) onException (do - _ <- propagateGError $ g_input_stream_read_all_finish _obj' result_' bytes_read - bytes_read' <- peek bytes_read + _ <- propagateGError $ g_input_stream_read_all_finish _obj' result_' bytesRead + bytesRead' <- peek bytesRead touchManagedPtr _obj touchManagedPtr result_ - freeMem bytes_read - return bytes_read' + freeMem bytesRead + return bytesRead' ) (do - freeMem bytes_read + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -525,13 +626,13 @@ inputStreamReadAsync :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -inputStreamReadAsync _obj buffer io_priority cancellable callback = liftIO $ do + 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 @@ -547,18 +648,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_input_stream_read_async _obj' buffer' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Bytes" -- throws : True -- Skip return : False @@ -573,10 +677,10 @@ inputStreamReadBytes :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Word64 -> -- count - Maybe (b) -> -- cancellable - m GLib.Bytes + 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 @@ -595,11 +699,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -616,13 +723,13 @@ inputStreamReadBytesAsync :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Word64 -> -- count - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -inputStreamReadBytesAsync _obj count io_priority cancellable callback = liftIO $ do + 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 @@ -636,17 +743,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_input_stream_read_bytes_async _obj' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Bytes" -- throws : True -- Skip return : False @@ -660,9 +770,9 @@ inputStreamReadBytesFinish :: (MonadIO m, InputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m GLib.Bytes + a -- _obj + -> b -- result_ + -> m GLib.Bytes -- result inputStreamReadBytesFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -677,11 +787,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -695,9 +808,9 @@ inputStreamReadFinish :: (MonadIO m, InputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result inputStreamReadFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -710,11 +823,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -727,8 +843,8 @@ inputStreamSetPending :: (MonadIO m, InputStreamK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result inputStreamSetPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -739,11 +855,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -758,10 +877,10 @@ inputStreamSkip :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Word64 -> -- count - Maybe (b) -> -- cancellable - m Int64 + a -- _obj + -> Word64 -- count + -> Maybe (b) -- cancellable + -> m Int64 -- result inputStreamSkip _obj count cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -778,11 +897,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -799,13 +921,13 @@ inputStreamSkipAsync :: (MonadIO m, InputStreamK a, CancellableK b) => - a -> -- _obj - Word64 -> -- count - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -inputStreamSkipAsync _obj count io_priority cancellable callback = liftIO $ do + 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 @@ -819,17 +941,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_input_stream_skip_async _obj' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -843,9 +968,9 @@ inputStreamSkipFinish :: (MonadIO m, InputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result inputStreamSkipFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -857,5 +982,9 @@ ) (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 --- a/GI/Gio/Objects/InputStream.hs-boot +++ b/GI/Gio/Objects/InputStream.hs-boot @@ -11,3 +11,22 @@ 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 --- a/GI/Gio/Objects/ListStore.hs +++ b/GI/Gio/Objects/ListStore.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** listStoreAppend + ListStoreAppendMethodInfo , listStoreAppend , -- ** listStoreInsert + ListStoreInsertMethodInfo , listStoreInsert , -- ** listStoreInsertSorted + ListStoreInsertSortedMethodInfo , listStoreInsertSorted , @@ -33,18 +37,22 @@ -- ** listStoreRemove + ListStoreRemoveMethodInfo , listStoreRemove , -- ** listStoreRemoveAll + ListStoreRemoveAllMethodInfo , listStoreRemoveAll , -- ** listStoreSort + ListStoreSortMethodInfo , listStoreSort , -- ** listStoreSplice + ListStoreSpliceMethodInfo , listStoreSplice , @@ -94,6 +102,50 @@ 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] @@ -110,22 +162,21 @@ type AttrSetTypeConstraint ListStoreItemTypePropertyInfo = (~) GType type AttrBaseTypeConstraint ListStoreItemTypePropertyInfo = ListStoreK type AttrGetType ListStoreItemTypePropertyInfo = GType - type AttrLabel ListStoreItemTypePropertyInfo = "ListStore::item-type" + type AttrLabel ListStoreItemTypePropertyInfo = "item-type" attrGet _ = getListStoreItemType attrSet _ = undefined attrConstruct _ = constructListStoreItemType type instance AttributeList ListStore = ListStoreAttributeList -type ListStoreAttributeList = ('[ '("item-type", ListStoreItemTypePropertyInfo)] :: [(Symbol, *)]) +type ListStoreAttributeList = ('[ '("itemType", ListStoreItemTypePropertyInfo)] :: [(Symbol, *)]) type instance SignalList ListStore = ListStoreSignalList -type ListStoreSignalList = ('[ '("items-changed", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ListStoreSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ListStore::new -- method type : Constructor --- Args : [Arg {argName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ListStore" -- throws : False -- Skip return : False @@ -137,20 +188,19 @@ listStoreNew :: (MonadIO m) => - GType -> -- item_type - m ListStore -listStoreNew item_type = liftIO $ do - let item_type' = gtypeToCGType item_type - result <- g_list_store_new item_type' + 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -163,9 +213,9 @@ listStoreAppend :: (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- item - m () + a -- _obj + -> b -- item + -> m () -- result listStoreAppend _obj item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -174,11 +224,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -192,10 +245,10 @@ listStoreInsert :: (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -> -- _obj - Word32 -> -- position - b -> -- item - m () + a -- _obj + -> Word32 -- position + -> b -- item + -> m () -- result listStoreInsert _obj position item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -204,11 +257,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -223,26 +279,29 @@ listStoreInsertSorted :: (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -> -- _obj - b -> -- item - GLib.CompareDataFunc -> -- compare_func - m Word32 -listStoreInsertSorted _obj item compare_func = liftIO $ do + a -- _obj + -> b -- item + -> GLib.CompareDataFunc -- compareFunc + -> m Word32 -- result +listStoreInsertSorted _obj item compareFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item - compare_func' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compare_func) - let user_data = nullPtr - result <- g_list_store_insert_sorted _obj' item' compare_func' user_data - safeFreeFunPtr $ castFunPtrToPtr compare_func' + 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -255,20 +314,23 @@ listStoreRemove :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Word32 -> -- position - m () + 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -280,19 +342,22 @@ listStoreRemoveAll :: (MonadIO m, ListStoreK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -306,23 +371,26 @@ listStoreSort :: (MonadIO m, ListStoreK a) => - a -> -- _obj - GLib.CompareDataFunc -> -- compare_func - m () -listStoreSort _obj compare_func = liftIO $ do + a -- _obj + -> GLib.CompareDataFunc -- compareFunc + -> m () -- result +listStoreSort _obj compareFunc = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - compare_func' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compare_func) - let user_data = nullPtr - g_list_store_sort _obj' compare_func' user_data - safeFreeFunPtr $ castFunPtrToPtr compare_func' + 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 {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_removals", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "additions", argType = TCArray False (-1) 4 (TInterface "GObject" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_additions", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_additions", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_removals", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "additions", argType = TCArray False (-1) 4 (TInterface "GObject" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_removals", argType = TBasicType TUInt32, 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_additions", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -338,20 +406,24 @@ listStoreSplice :: (MonadIO m, ListStoreK a) => - a -> -- _obj - Word32 -> -- position - Word32 -> -- n_removals - [GObject.Object] -> -- additions - m () -listStoreSplice _obj position n_removals additions = liftIO $ do - let n_additions = fromIntegral $ length additions + 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 n_removals additions'' n_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 --- a/GI/Gio/Objects/ListStore.hs-boot +++ b/GI/Gio/Objects/ListStore.hs-boot @@ -12,3 +12,10 @@ 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 --- a/GI/Gio/Objects/MemoryInputStream.hs +++ b/GI/Gio/Objects/MemoryInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** memoryInputStreamAddBytes + MemoryInputStreamAddBytesMethodInfo , memoryInputStreamAddBytes , -- ** memoryInputStreamAddData + MemoryInputStreamAddDataMethodInfo , memoryInputStreamAddData , @@ -73,17 +76,79 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MemoryInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MemoryInputStream::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "MemoryInputStream" -- throws : False -- Skip return : False @@ -94,7 +159,7 @@ memoryInputStreamNew :: (MonadIO m) => - m MemoryInputStream + m MemoryInputStream -- result memoryInputStreamNew = liftIO $ do result <- g_memory_input_stream_new checkUnexpectedReturnNULL "g_memory_input_stream_new" result @@ -103,9 +168,8 @@ -- method MemoryInputStream::new_from_bytes -- method type : Constructor --- Args : [Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MemoryInputStream" -- throws : False -- Skip return : False @@ -117,8 +181,8 @@ memoryInputStreamNewFromBytes :: (MonadIO m) => - GLib.Bytes -> -- bytes - m MemoryInputStream + GLib.Bytes -- bytes + -> m MemoryInputStream -- result memoryInputStreamNewFromBytes bytes = liftIO $ do let bytes' = unsafeManagedPtrGetPtr bytes result <- g_memory_input_stream_new_from_bytes bytes' @@ -129,9 +193,8 @@ -- method MemoryInputStream::new_from_data -- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TInterface "Gio" "MemoryInputStream" -- throws : False -- Skip return : False @@ -145,9 +208,9 @@ memoryInputStreamNewFromData :: (MonadIO m) => - ByteString -> -- data - Maybe (GLib.DestroyNotify) -> -- destroy - m MemoryInputStream + ByteString -- data_ + -> Maybe (GLib.DestroyNotify) -- destroy + -> m MemoryInputStream -- result memoryInputStreamNewFromData data_ destroy = liftIO $ do let len = fromIntegral $ B.length data_ data_' <- packByteString data_ @@ -165,9 +228,8 @@ -- method MemoryInputStream::add_bytes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -180,9 +242,9 @@ memoryInputStreamAddBytes :: (MonadIO m, MemoryInputStreamK a) => - a -> -- _obj - GLib.Bytes -> -- bytes - m () + a -- _obj + -> GLib.Bytes -- bytes + -> m () -- result memoryInputStreamAddBytes _obj bytes = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let bytes' = unsafeManagedPtrGetPtr bytes @@ -191,11 +253,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -210,10 +275,10 @@ memoryInputStreamAddData :: (MonadIO m, MemoryInputStreamK a) => - a -> -- _obj - ByteString -> -- data - Maybe (GLib.DestroyNotify) -> -- destroy - m () + 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 @@ -228,5 +293,9 @@ 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 --- a/GI/Gio/Objects/MemoryInputStream.hs-boot +++ b/GI/Gio/Objects/MemoryInputStream.hs-boot @@ -11,3 +11,5 @@ 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 --- a/GI/Gio/Objects/MemoryOutputStream.hs +++ b/GI/Gio/Objects/MemoryOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** memoryOutputStreamGetData + MemoryOutputStreamGetDataMethodInfo , memoryOutputStreamGetData , -- ** memoryOutputStreamGetDataSize + MemoryOutputStreamGetDataSizeMethodInfo , memoryOutputStreamGetDataSize , -- ** memoryOutputStreamGetSize + MemoryOutputStreamGetSizeMethodInfo , memoryOutputStreamGetSize , @@ -33,10 +37,12 @@ -- ** memoryOutputStreamStealAsBytes + MemoryOutputStreamStealAsBytesMethodInfo, memoryOutputStreamStealAsBytes , -- ** memoryOutputStreamStealData + MemoryOutputStreamStealDataMethodInfo , memoryOutputStreamStealData , @@ -97,6 +103,72 @@ 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 TVoid -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] @@ -113,7 +185,7 @@ type AttrSetTypeConstraint MemoryOutputStreamDataPropertyInfo = (~) (Ptr ()) type AttrBaseTypeConstraint MemoryOutputStreamDataPropertyInfo = MemoryOutputStreamK type AttrGetType MemoryOutputStreamDataPropertyInfo = (Ptr ()) - type AttrLabel MemoryOutputStreamDataPropertyInfo = "MemoryOutputStream::data" + type AttrLabel MemoryOutputStreamDataPropertyInfo = "data" attrGet _ = getMemoryOutputStreamData attrSet _ = undefined attrConstruct _ = constructMemoryOutputStreamData @@ -131,7 +203,7 @@ type AttrSetTypeConstraint MemoryOutputStreamDataSizePropertyInfo = (~) () type AttrBaseTypeConstraint MemoryOutputStreamDataSizePropertyInfo = MemoryOutputStreamK type AttrGetType MemoryOutputStreamDataSizePropertyInfo = Word64 - type AttrLabel MemoryOutputStreamDataSizePropertyInfo = "MemoryOutputStream::data-size" + type AttrLabel MemoryOutputStreamDataSizePropertyInfo = "data-size" attrGet _ = getMemoryOutputStreamDataSize attrSet _ = undefined attrConstruct _ = undefined @@ -152,22 +224,21 @@ type AttrSetTypeConstraint MemoryOutputStreamSizePropertyInfo = (~) Word64 type AttrBaseTypeConstraint MemoryOutputStreamSizePropertyInfo = MemoryOutputStreamK type AttrGetType MemoryOutputStreamSizePropertyInfo = Word64 - type AttrLabel MemoryOutputStreamSizePropertyInfo = "MemoryOutputStream::size" + type AttrLabel MemoryOutputStreamSizePropertyInfo = "size" attrGet _ = getMemoryOutputStreamSize attrSet _ = undefined attrConstruct _ = constructMemoryOutputStreamSize type instance AttributeList MemoryOutputStream = MemoryOutputStreamAttributeList -type MemoryOutputStreamAttributeList = ('[ '("data", MemoryOutputStreamDataPropertyInfo), '("data-size", MemoryOutputStreamDataSizePropertyInfo), '("size", MemoryOutputStreamSizePropertyInfo)] :: [(Symbol, *)]) +type MemoryOutputStreamAttributeList = ('[ '("data", MemoryOutputStreamDataPropertyInfo), '("dataSize", MemoryOutputStreamDataSizePropertyInfo), '("size", MemoryOutputStreamSizePropertyInfo)] :: [(Symbol, *)]) type instance SignalList MemoryOutputStream = MemoryOutputStreamSignalList -type MemoryOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MemoryOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MemoryOutputStream::new_resizable -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "MemoryOutputStream" -- throws : False -- Skip return : False @@ -178,7 +249,7 @@ memoryOutputStreamNewResizable :: (MonadIO m) => - m MemoryOutputStream + m MemoryOutputStream -- result memoryOutputStreamNewResizable = liftIO $ do result <- g_memory_output_stream_new_resizable checkUnexpectedReturnNULL "g_memory_output_stream_new_resizable" result @@ -187,9 +258,8 @@ -- method MemoryOutputStream::get_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -201,19 +271,22 @@ memoryOutputStreamGetData :: (MonadIO m, MemoryOutputStreamK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result memoryOutputStreamGetData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_memory_output_stream_get_data _obj' touchManagedPtr _obj return () +data MemoryOutputStreamGetDataMethodInfo +instance (signature ~ (m ()), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetDataMethodInfo a signature where + overloadedMethod _ = memoryOutputStreamGetData + -- method MemoryOutputStream::get_data_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -225,19 +298,22 @@ memoryOutputStreamGetDataSize :: (MonadIO m, MemoryOutputStreamK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -249,19 +325,22 @@ memoryOutputStreamGetSize :: (MonadIO m, MemoryOutputStreamK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Bytes" -- throws : False -- Skip return : False @@ -273,8 +352,8 @@ memoryOutputStreamStealAsBytes :: (MonadIO m, MemoryOutputStreamK a) => - a -> -- _obj - m GLib.Bytes + a -- _obj + -> m GLib.Bytes -- result memoryOutputStreamStealAsBytes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_memory_output_stream_steal_as_bytes _obj' @@ -283,11 +362,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -299,12 +381,16 @@ memoryOutputStreamStealData :: (MonadIO m, MemoryOutputStreamK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result memoryOutputStreamStealData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_memory_output_stream_steal_data _obj' touchManagedPtr _obj return () + +data MemoryOutputStreamStealDataMethodInfo +instance (signature ~ (m ()), 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 --- a/GI/Gio/Objects/MemoryOutputStream.hs-boot +++ b/GI/Gio/Objects/MemoryOutputStream.hs-boot @@ -14,3 +14,8 @@ 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 --- a/GI/Gio/Objects/Menu.hs +++ b/GI/Gio/Objects/Menu.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,38 +18,47 @@ -- * 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 , @@ -57,26 +67,32 @@ -- ** menuPrepend + MenuPrependMethodInfo , menuPrepend , -- ** menuPrependItem + MenuPrependItemMethodInfo , menuPrependItem , -- ** menuPrependSection + MenuPrependSectionMethodInfo , menuPrependSection , -- ** menuPrependSubmenu + MenuPrependSubmenuMethodInfo , menuPrependSubmenu , -- ** menuRemove + MenuRemoveMethodInfo , menuRemove , -- ** menuRemoveAll + MenuRemoveAllMethodInfo , menuRemoveAll , @@ -116,17 +132,71 @@ 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 = ('[ '("items-changed", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Menu::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Menu" -- throws : False -- Skip return : False @@ -137,7 +207,7 @@ menuNew :: (MonadIO m) => - m Menu + m Menu -- result menuNew = liftIO $ do result <- g_menu_new checkUnexpectedReturnNULL "g_menu_new" result @@ -146,9 +216,8 @@ -- method Menu::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -162,33 +231,36 @@ menuAppend :: (MonadIO m, MenuK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- detailed_action - m () -menuAppend _obj label detailed_action = liftIO $ do + 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' - maybeDetailed_action <- case detailed_action of + maybeDetailedAction <- case detailedAction of Nothing -> return nullPtr - Just jDetailed_action -> do - jDetailed_action' <- textToCString jDetailed_action - return jDetailed_action' - g_menu_append _obj' maybeLabel maybeDetailed_action + Just jDetailedAction -> do + jDetailedAction' <- textToCString jDetailedAction + return jDetailedAction' + g_menu_append _obj' maybeLabel maybeDetailedAction touchManagedPtr _obj freeMem maybeLabel - freeMem maybeDetailed_action + 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -201,9 +273,9 @@ menuAppendItem :: (MonadIO m, MenuK a, MenuItemK b) => - a -> -- _obj - b -> -- item - m () + a -- _obj + -> b -- item + -> m () -- result menuAppendItem _obj item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -212,11 +284,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -230,10 +305,10 @@ menuAppendSection :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Maybe (T.Text) -> -- label - b -> -- section - m () + a -- _obj + -> Maybe (T.Text) -- label + -> b -- section + -> m () -- result menuAppendSection _obj label section = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -248,11 +323,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -266,10 +344,10 @@ menuAppendSubmenu :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Maybe (T.Text) -> -- label - b -> -- submenu - m () + a -- _obj + -> Maybe (T.Text) -- label + -> b -- submenu + -> m () -- result menuAppendSubmenu _obj label submenu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -284,11 +362,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -300,19 +381,22 @@ menuFreeze :: (MonadIO m, MenuK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -327,34 +411,37 @@ menuInsert :: (MonadIO m, MenuK a) => - a -> -- _obj - Int32 -> -- position - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- detailed_action - m () -menuInsert _obj position label detailed_action = liftIO $ do + 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' - maybeDetailed_action <- case detailed_action of + maybeDetailedAction <- case detailedAction of Nothing -> return nullPtr - Just jDetailed_action -> do - jDetailed_action' <- textToCString jDetailed_action - return jDetailed_action' - g_menu_insert _obj' position maybeLabel maybeDetailed_action + Just jDetailedAction -> do + jDetailedAction' <- textToCString jDetailedAction + return jDetailedAction' + g_menu_insert _obj' position maybeLabel maybeDetailedAction touchManagedPtr _obj freeMem maybeLabel - freeMem maybeDetailed_action + 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -368,10 +455,10 @@ menuInsertItem :: (MonadIO m, MenuK a, MenuItemK b) => - a -> -- _obj - Int32 -> -- position - b -> -- item - m () + a -- _obj + -> Int32 -- position + -> b -- item + -> m () -- result menuInsertItem _obj position item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -380,11 +467,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -399,11 +489,11 @@ menuInsertSection :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Int32 -> -- position - Maybe (T.Text) -> -- label - b -> -- section - m () + 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 @@ -418,11 +508,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -437,11 +530,11 @@ menuInsertSubmenu :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Int32 -> -- position - Maybe (T.Text) -> -- label - b -> -- submenu - m () + 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 @@ -456,11 +549,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -474,33 +570,36 @@ menuPrepend :: (MonadIO m, MenuK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- detailed_action - m () -menuPrepend _obj label detailed_action = liftIO $ do + 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' - maybeDetailed_action <- case detailed_action of + maybeDetailedAction <- case detailedAction of Nothing -> return nullPtr - Just jDetailed_action -> do - jDetailed_action' <- textToCString jDetailed_action - return jDetailed_action' - g_menu_prepend _obj' maybeLabel maybeDetailed_action + Just jDetailedAction -> do + jDetailedAction' <- textToCString jDetailedAction + return jDetailedAction' + g_menu_prepend _obj' maybeLabel maybeDetailedAction touchManagedPtr _obj freeMem maybeLabel - freeMem maybeDetailed_action + 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -513,9 +612,9 @@ menuPrependItem :: (MonadIO m, MenuK a, MenuItemK b) => - a -> -- _obj - b -> -- item - m () + a -- _obj + -> b -- item + -> m () -- result menuPrependItem _obj item = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let item' = unsafeManagedPtrCastPtr item @@ -524,11 +623,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -542,10 +644,10 @@ menuPrependSection :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Maybe (T.Text) -> -- label - b -> -- section - m () + a -- _obj + -> Maybe (T.Text) -- label + -> b -- section + -> m () -- result menuPrependSection _obj label section = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -560,11 +662,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -578,10 +683,10 @@ menuPrependSubmenu :: (MonadIO m, MenuK a, MenuModelK b) => - a -> -- _obj - Maybe (T.Text) -> -- label - b -> -- submenu - m () + a -- _obj + -> Maybe (T.Text) -- label + -> b -- submenu + -> m () -- result menuPrependSubmenu _obj label submenu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -596,11 +701,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -613,20 +721,23 @@ menuRemove :: (MonadIO m, MenuK a) => - a -> -- _obj - Int32 -> -- position - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -638,12 +749,16 @@ menuRemoveAll :: (MonadIO m, MenuK a) => - a -> -- _obj - m () + 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 --- a/GI/Gio/Objects/Menu.hs-boot +++ b/GI/Gio/Objects/Menu.hs-boot @@ -11,3 +11,18 @@ 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 --- a/GI/Gio/Objects/MenuAttributeIter.hs +++ b/GI/Gio/Objects/MenuAttributeIter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** menuAttributeIterGetName + MenuAttributeIterGetNameMethodInfo , menuAttributeIterGetName , -- ** menuAttributeIterGetNext + MenuAttributeIterGetNextMethodInfo , menuAttributeIterGetNext , -- ** menuAttributeIterGetValue + MenuAttributeIterGetValueMethodInfo , menuAttributeIterGetValue , -- ** menuAttributeIterNext + MenuAttributeIterNextMethodInfo , menuAttributeIterNext , @@ -68,17 +73,53 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuAttributeIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MenuAttributeIter::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -90,8 +131,8 @@ menuAttributeIterGetName :: (MonadIO m, MenuAttributeIterK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuAttributeIterGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_menu_attribute_iter_get_name _obj' @@ -100,11 +141,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -118,28 +162,31 @@ menuAttributeIterGetNext :: (MonadIO m, MenuAttributeIterK a) => - a -> -- _obj - m (Bool,T.Text,GVariant) + a -- _obj + -> m (Bool,T.Text,GVariant) -- result menuAttributeIterGetNext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - out_name <- allocMem :: IO (Ptr CString) + outName <- allocMem :: IO (Ptr CString) value <- allocMem :: IO (Ptr (Ptr GVariant)) - result <- g_menu_attribute_iter_get_next _obj' out_name value + result <- g_menu_attribute_iter_get_next _obj' outName value let result' = (/= 0) result - out_name' <- peek out_name - out_name'' <- cstringToText out_name' + outName' <- peek outName + outName'' <- cstringToText outName' value' <- peek value value'' <- wrapGVariantPtr value' touchManagedPtr _obj - freeMem out_name + freeMem outName freeMem value - return (result', out_name'', 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 {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -151,8 +198,8 @@ menuAttributeIterGetValue :: (MonadIO m, MenuAttributeIterK a) => - a -> -- _obj - m GVariant + a -- _obj + -> m GVariant -- result menuAttributeIterGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_menu_attribute_iter_get_value _obj' @@ -161,11 +208,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -177,13 +227,17 @@ menuAttributeIterNext :: (MonadIO m, MenuAttributeIterK a) => - a -> -- _obj - m Bool + 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 --- a/GI/Gio/Objects/MenuAttributeIter.hs-boot +++ b/GI/Gio/Objects/MenuAttributeIter.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/MenuItem.hs +++ b/GI/Gio/Objects/MenuItem.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** menuItemGetAttributeValue + MenuItemGetAttributeValueMethodInfo , menuItemGetAttributeValue , -- ** menuItemGetLink + MenuItemGetLinkMethodInfo , menuItemGetLink , @@ -41,34 +44,42 @@ -- ** menuItemSetActionAndTargetValue + MenuItemSetActionAndTargetValueMethodInfo, menuItemSetActionAndTargetValue , -- ** menuItemSetAttributeValue + MenuItemSetAttributeValueMethodInfo , menuItemSetAttributeValue , -- ** menuItemSetDetailedAction + MenuItemSetDetailedActionMethodInfo , menuItemSetDetailedAction , -- ** menuItemSetIcon + MenuItemSetIconMethodInfo , menuItemSetIcon , -- ** menuItemSetLabel + MenuItemSetLabelMethodInfo , menuItemSetLabel , -- ** menuItemSetLink + MenuItemSetLinkMethodInfo , menuItemSetLink , -- ** menuItemSetSection + MenuItemSetSectionMethodInfo , menuItemSetSection , -- ** menuItemSetSubmenu + MenuItemSetSubmenuMethodInfo , menuItemSetSubmenu , @@ -109,17 +120,59 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MenuItem::new -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuItem" -- throws : False -- Skip return : False @@ -132,32 +185,31 @@ menuItemNew :: (MonadIO m) => - Maybe (T.Text) -> -- label - Maybe (T.Text) -> -- detailed_action - m MenuItem -menuItemNew label detailed_action = liftIO $ do + 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' - maybeDetailed_action <- case detailed_action of + maybeDetailedAction <- case detailedAction of Nothing -> return nullPtr - Just jDetailed_action -> do - jDetailed_action' <- textToCString jDetailed_action - return jDetailed_action' - result <- g_menu_item_new maybeLabel maybeDetailed_action + 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 maybeDetailed_action + freeMem maybeDetailedAction return result' -- method MenuItem::new_from_model -- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuItem" -- throws : False -- Skip return : False @@ -170,12 +222,12 @@ menuItemNewFromModel :: (MonadIO m, MenuModelK a) => - a -> -- model - Int32 -> -- item_index - m MenuItem -menuItemNewFromModel model item_index = liftIO $ do + a -- model + -> Int32 -- itemIndex + -> m MenuItem -- result +menuItemNewFromModel model itemIndex = liftIO $ do let model' = unsafeManagedPtrCastPtr model - result <- g_menu_item_new_from_model model' item_index + result <- g_menu_item_new_from_model model' itemIndex checkUnexpectedReturnNULL "g_menu_item_new_from_model" result result' <- (wrapObject MenuItem) result touchManagedPtr model @@ -183,9 +235,8 @@ -- method MenuItem::new_section -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuItem" -- throws : False -- Skip return : False @@ -198,9 +249,9 @@ menuItemNewSection :: (MonadIO m, MenuModelK a) => - Maybe (T.Text) -> -- label - a -> -- section - m MenuItem + Maybe (T.Text) -- label + -> a -- section + -> m MenuItem -- result menuItemNewSection label section = liftIO $ do maybeLabel <- case label of Nothing -> return nullPtr @@ -217,9 +268,8 @@ -- method MenuItem::new_submenu -- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuItem" -- throws : False -- Skip return : False @@ -232,9 +282,9 @@ menuItemNewSubmenu :: (MonadIO m, MenuModelK a) => - Maybe (T.Text) -> -- label - a -> -- submenu - m MenuItem + Maybe (T.Text) -- label + -> a -- submenu + -> m MenuItem -- result menuItemNewSubmenu label submenu = liftIO $ do maybeLabel <- case label of Nothing -> return nullPtr @@ -251,9 +301,8 @@ -- method MenuItem::get_attribute_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -267,31 +316,34 @@ menuItemGetAttributeValue :: (MonadIO m, MenuItemK a) => - a -> -- _obj - T.Text -> -- attribute - Maybe (GLib.VariantType) -> -- expected_type - m GVariant -menuItemGetAttributeValue _obj attribute expected_type = liftIO $ do + 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 - maybeExpected_type <- case expected_type of + maybeExpectedType <- case expectedType of Nothing -> return nullPtr - Just jExpected_type -> do - let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type - return jExpected_type' - result <- g_menu_item_get_attribute_value _obj' attribute' maybeExpected_type + 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 expected_type touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -304,9 +356,9 @@ menuItemGetLink :: (MonadIO m, MenuItemK a) => - a -> -- _obj - T.Text -> -- link - m MenuModel + a -- _obj + -> T.Text -- link + -> m MenuModel -- result menuItemGetLink _obj link = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj link' <- textToCString link @@ -317,11 +369,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -335,32 +390,35 @@ menuItemSetActionAndTargetValue :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Maybe (T.Text) -> -- action - Maybe (GVariant) -> -- target_value - m () -menuItemSetActionAndTargetValue _obj action target_value = liftIO $ do + 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' - maybeTarget_value <- case target_value of + maybeTargetValue <- case targetValue of Nothing -> return nullPtr - Just jTarget_value -> do - let jTarget_value' = unsafeManagedPtrGetPtr jTarget_value - return jTarget_value' - g_menu_item_set_action_and_target_value _obj' maybeAction maybeTarget_value + 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -374,10 +432,10 @@ menuItemSetAttributeValue :: (MonadIO m, MenuItemK a) => - a -> -- _obj - T.Text -> -- attribute - Maybe (GVariant) -> -- value - m () + a -- _obj + -> T.Text -- attribute + -> Maybe (GVariant) -- value + -> m () -- result menuItemSetAttributeValue _obj attribute value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj attribute' <- textToCString attribute @@ -391,11 +449,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -408,22 +469,25 @@ menuItemSetDetailedAction :: (MonadIO m, MenuItemK a) => - a -> -- _obj - T.Text -> -- detailed_action - m () -menuItemSetDetailedAction _obj detailed_action = liftIO $ do + a -- _obj + -> T.Text -- detailedAction + -> m () -- result +menuItemSetDetailedAction _obj detailedAction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action' <- textToCString detailed_action - g_menu_item_set_detailed_action _obj' detailed_action' + detailedAction' <- textToCString detailedAction + g_menu_item_set_detailed_action _obj' detailedAction' touchManagedPtr _obj - freeMem detailed_action' + 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -436,9 +500,9 @@ menuItemSetIcon :: (MonadIO m, MenuItemK a, IconK b) => - a -> -- _obj - b -> -- icon - m () + a -- _obj + -> b -- icon + -> m () -- result menuItemSetIcon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -447,11 +511,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -464,9 +531,9 @@ menuItemSetLabel :: (MonadIO m, MenuItemK a) => - a -> -- _obj - Maybe (T.Text) -> -- label - m () + a -- _obj + -> Maybe (T.Text) -- label + -> m () -- result menuItemSetLabel _obj label = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLabel <- case label of @@ -479,11 +546,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -497,10 +567,10 @@ menuItemSetLink :: (MonadIO m, MenuItemK a, MenuModelK b) => - a -> -- _obj - T.Text -> -- link - Maybe (b) -> -- model - m () + a -- _obj + -> T.Text -- link + -> Maybe (b) -- model + -> m () -- result menuItemSetLink _obj link model = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj link' <- textToCString link @@ -515,11 +585,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -532,9 +605,9 @@ menuItemSetSection :: (MonadIO m, MenuItemK a, MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- section - m () + a -- _obj + -> Maybe (b) -- section + -> m () -- result menuItemSetSection _obj section = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSection <- case section of @@ -547,11 +620,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -564,9 +640,9 @@ menuItemSetSubmenu :: (MonadIO m, MenuItemK a, MenuModelK b) => - a -> -- _obj - Maybe (b) -> -- submenu - m () + a -- _obj + -> Maybe (b) -- submenu + -> m () -- result menuItemSetSubmenu _obj submenu = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSubmenu <- case submenu of @@ -578,5 +654,9 @@ 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 --- a/GI/Gio/Objects/MenuItem.hs-boot +++ b/GI/Gio/Objects/MenuItem.hs-boot @@ -11,3 +11,13 @@ 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 --- a/GI/Gio/Objects/MenuLinkIter.hs +++ b/GI/Gio/Objects/MenuLinkIter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** menuLinkIterGetName + MenuLinkIterGetNameMethodInfo , menuLinkIterGetName , -- ** menuLinkIterGetNext + MenuLinkIterGetNextMethodInfo , menuLinkIterGetNext , -- ** menuLinkIterGetValue + MenuLinkIterGetValueMethodInfo , menuLinkIterGetValue , -- ** menuLinkIterNext + MenuLinkIterNextMethodInfo , menuLinkIterNext , @@ -68,17 +73,53 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuLinkIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MenuLinkIter::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -90,8 +131,8 @@ menuLinkIterGetName :: (MonadIO m, MenuLinkIterK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result menuLinkIterGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_menu_link_iter_get_name _obj' @@ -100,11 +141,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_link", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "Gio" "MenuModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -118,28 +162,31 @@ menuLinkIterGetNext :: (MonadIO m, MenuLinkIterK a) => - a -> -- _obj - m (Bool,T.Text,MenuModel) + a -- _obj + -> m (Bool,T.Text,MenuModel) -- result menuLinkIterGetNext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - out_link <- allocMem :: IO (Ptr CString) + outLink <- allocMem :: IO (Ptr CString) value <- allocMem :: IO (Ptr (Ptr MenuModel)) - result <- g_menu_link_iter_get_next _obj' out_link value + result <- g_menu_link_iter_get_next _obj' outLink value let result' = (/= 0) result - out_link' <- peek out_link - out_link'' <- cstringToText out_link' + outLink' <- peek outLink + outLink'' <- cstringToText outLink' value' <- peek value value'' <- (wrapObject MenuModel) value' touchManagedPtr _obj - freeMem out_link + freeMem outLink freeMem value - return (result', out_link'', 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 {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -151,8 +198,8 @@ menuLinkIterGetValue :: (MonadIO m, MenuLinkIterK a) => - a -> -- _obj - m MenuModel + a -- _obj + -> m MenuModel -- result menuLinkIterGetValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_menu_link_iter_get_value _obj' @@ -161,11 +208,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -177,13 +227,17 @@ menuLinkIterNext :: (MonadIO m, MenuLinkIterK a) => - a -> -- _obj - m Bool + 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 --- a/GI/Gio/Objects/MenuLinkIter.hs-boot +++ b/GI/Gio/Objects/MenuLinkIter.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/MenuModel.hs +++ b/GI/Gio/Objects/MenuModel.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** menuModelGetItemAttributeValue + MenuModelGetItemAttributeValueMethodInfo, menuModelGetItemAttributeValue , -- ** menuModelGetItemLink + MenuModelGetItemLinkMethodInfo , menuModelGetItemLink , -- ** menuModelGetNItems + MenuModelGetNItemsMethodInfo , menuModelGetNItems , -- ** menuModelIsMutable + MenuModelIsMutableMethodInfo , menuModelIsMutable , -- ** menuModelItemsChanged + MenuModelItemsChangedMethodInfo , menuModelItemsChanged , -- ** menuModelIterateItemAttributes + MenuModelIterateItemAttributesMethodInfo, menuModelIterateItemAttributes , -- ** menuModelIterateItemLinks + MenuModelIterateItemLinksMethodInfo , menuModelIterateItemLinks , @@ -96,6 +104,46 @@ 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 -> @@ -152,13 +200,12 @@ connectSignal _ = connectMenuModelItemsChanged type instance SignalList MenuModel = MenuModelSignalList -type MenuModelSignalList = ('[ '("items-changed", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type MenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method MenuModel::get_item_attribute_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -173,32 +220,35 @@ menuModelGetItemAttributeValue :: (MonadIO m, MenuModelK a) => - a -> -- _obj - Int32 -> -- item_index - T.Text -> -- attribute - Maybe (GLib.VariantType) -> -- expected_type - m GVariant -menuModelGetItemAttributeValue _obj item_index attribute expected_type = liftIO $ do + 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 - maybeExpected_type <- case expected_type of + maybeExpectedType <- case expectedType of Nothing -> return nullPtr - Just jExpected_type -> do - let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type - return jExpected_type' - result <- g_menu_model_get_item_attribute_value _obj' item_index attribute' maybeExpected_type + 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 expected_type touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuModel" -- throws : False -- Skip return : False @@ -212,25 +262,28 @@ menuModelGetItemLink :: (MonadIO m, MenuModelK a) => - a -> -- _obj - Int32 -> -- item_index - T.Text -> -- link - m MenuModel -menuModelGetItemLink _obj item_index link = liftIO $ do + 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' item_index 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -242,19 +295,22 @@ menuModelGetNItems :: (MonadIO m, MenuModelK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -266,8 +322,8 @@ menuModelIsMutable :: (MonadIO m, MenuModelK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result menuModelIsMutable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_menu_model_is_mutable _obj' @@ -275,11 +331,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "removed", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "removed", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -294,22 +353,25 @@ menuModelItemsChanged :: (MonadIO m, MenuModelK a) => - a -> -- _obj - Int32 -> -- position - Int32 -> -- removed - Int32 -> -- added - m () + 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuAttributeIter" -- throws : False -- Skip return : False @@ -322,22 +384,25 @@ menuModelIterateItemAttributes :: (MonadIO m, MenuModelK a) => - a -> -- _obj - Int32 -> -- item_index - m MenuAttributeIter -menuModelIterateItemAttributes _obj item_index = liftIO $ do + a -- _obj + -> Int32 -- itemIndex + -> m MenuAttributeIter -- result +menuModelIterateItemAttributes _obj itemIndex = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_iterate_item_attributes _obj' item_index + 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 {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "MenuLinkIter" -- throws : False -- Skip return : False @@ -350,15 +415,19 @@ menuModelIterateItemLinks :: (MonadIO m, MenuModelK a) => - a -> -- _obj - Int32 -> -- item_index - m MenuLinkIter -menuModelIterateItemLinks _obj item_index = liftIO $ do + a -- _obj + -> Int32 -- itemIndex + -> m MenuLinkIter -- result +menuModelIterateItemLinks _obj itemIndex = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_iterate_item_links _obj' item_index + 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 --- a/GI/Gio/Objects/MenuModel.hs-boot +++ b/GI/Gio/Objects/MenuModel.hs-boot @@ -12,3 +12,10 @@ 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 --- a/GI/Gio/Objects/MountOperation.hs +++ b/GI/Gio/Objects/MountOperation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,26 +18,32 @@ -- * Methods -- ** mountOperationGetAnonymous + MountOperationGetAnonymousMethodInfo , mountOperationGetAnonymous , -- ** mountOperationGetChoice + MountOperationGetChoiceMethodInfo , mountOperationGetChoice , -- ** mountOperationGetDomain + MountOperationGetDomainMethodInfo , mountOperationGetDomain , -- ** mountOperationGetPassword + MountOperationGetPasswordMethodInfo , mountOperationGetPassword , -- ** mountOperationGetPasswordSave + MountOperationGetPasswordSaveMethodInfo , mountOperationGetPasswordSave , -- ** mountOperationGetUsername + MountOperationGetUsernameMethodInfo , mountOperationGetUsername , @@ -45,30 +52,37 @@ -- ** mountOperationReply + MountOperationReplyMethodInfo , mountOperationReply , -- ** mountOperationSetAnonymous + MountOperationSetAnonymousMethodInfo , mountOperationSetAnonymous , -- ** mountOperationSetChoice + MountOperationSetChoiceMethodInfo , mountOperationSetChoice , -- ** mountOperationSetDomain + MountOperationSetDomainMethodInfo , mountOperationSetDomain , -- ** mountOperationSetPassword + MountOperationSetPasswordMethodInfo , mountOperationSetPassword , -- ** mountOperationSetPasswordSave + MountOperationSetPasswordSaveMethodInfo , mountOperationSetPasswordSave , -- ** mountOperationSetUsername + MountOperationSetUsernameMethodInfo , mountOperationSetUsername , @@ -228,6 +242,52 @@ 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 () @@ -302,12 +362,12 @@ CUInt -> Ptr () -> IO () -mountOperationAskPasswordCallbackWrapper _cb _ message default_user default_domain flags _ = do +mountOperationAskPasswordCallbackWrapper _cb _ message defaultUser defaultDomain flags _ = do message' <- cstringToText message - default_user' <- cstringToText default_user - default_domain' <- cstringToText default_domain + defaultUser' <- cstringToText defaultUser + defaultDomain' <- cstringToText defaultDomain let flags' = wordToGFlags flags - _cb message' default_user' default_domain' flags' + _cb message' defaultUser' defaultDomain' flags' onMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId onMountOperationAskPassword obj cb = liftIO $ connectMountOperationAskPassword obj cb SignalConnectBefore @@ -491,9 +551,9 @@ Int64 -> Ptr () -> IO () -mountOperationShowUnmountProgressCallbackWrapper _cb _ message time_left bytes_left _ = do +mountOperationShowUnmountProgressCallbackWrapper _cb _ message timeLeft bytesLeft _ = do message' <- cstringToText message - _cb message' time_left bytes_left + _cb message' timeLeft bytesLeft onMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId onMountOperationShowUnmountProgress obj cb = liftIO $ connectMountOperationShowUnmountProgress obj cb SignalConnectBefore @@ -525,7 +585,7 @@ type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = MountOperationK type AttrGetType MountOperationAnonymousPropertyInfo = Bool - type AttrLabel MountOperationAnonymousPropertyInfo = "MountOperation::anonymous" + type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous" attrGet _ = getMountOperationAnonymous attrSet _ = setMountOperationAnonymous attrConstruct _ = constructMountOperationAnonymous @@ -549,7 +609,7 @@ type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32 type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = MountOperationK type AttrGetType MountOperationChoicePropertyInfo = Int32 - type AttrLabel MountOperationChoicePropertyInfo = "MountOperation::choice" + type AttrLabel MountOperationChoicePropertyInfo = "choice" attrGet _ = getMountOperationChoice attrSet _ = setMountOperationChoice attrConstruct _ = constructMountOperationChoice @@ -573,7 +633,7 @@ type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = MountOperationK type AttrGetType MountOperationDomainPropertyInfo = T.Text - type AttrLabel MountOperationDomainPropertyInfo = "MountOperation::domain" + type AttrLabel MountOperationDomainPropertyInfo = "domain" attrGet _ = getMountOperationDomain attrSet _ = setMountOperationDomain attrConstruct _ = constructMountOperationDomain @@ -597,7 +657,7 @@ type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = MountOperationK type AttrGetType MountOperationPasswordPropertyInfo = T.Text - type AttrLabel MountOperationPasswordPropertyInfo = "MountOperation::password" + type AttrLabel MountOperationPasswordPropertyInfo = "password" attrGet _ = getMountOperationPassword attrSet _ = setMountOperationPassword attrConstruct _ = constructMountOperationPassword @@ -621,7 +681,7 @@ type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) PasswordSave type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = MountOperationK type AttrGetType MountOperationPasswordSavePropertyInfo = PasswordSave - type AttrLabel MountOperationPasswordSavePropertyInfo = "MountOperation::password-save" + type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save" attrGet _ = getMountOperationPasswordSave attrSet _ = setMountOperationPasswordSave attrConstruct _ = constructMountOperationPasswordSave @@ -645,13 +705,13 @@ type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = MountOperationK type AttrGetType MountOperationUsernamePropertyInfo = T.Text - type AttrLabel MountOperationUsernamePropertyInfo = "MountOperation::username" + type AttrLabel MountOperationUsernamePropertyInfo = "username" attrGet _ = getMountOperationUsername attrSet _ = setMountOperationUsername attrConstruct _ = constructMountOperationUsername type instance AttributeList MountOperation = MountOperationAttributeList -type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("password-save", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) +type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) data MountOperationAbortedSignalInfo instance SignalInfo MountOperationAbortedSignalInfo where @@ -684,13 +744,12 @@ connectSignal _ = connectMountOperationShowUnmountProgress type instance SignalList MountOperation = MountOperationSignalList -type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("ask-password", MountOperationAskPasswordSignalInfo), '("ask-question", MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("show-processes", MountOperationShowProcessesSignalInfo), '("show-unmount-progress", MountOperationShowUnmountProgressSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "MountOperation" -- throws : False -- Skip return : False @@ -701,7 +760,7 @@ mountOperationNew :: (MonadIO m) => - m MountOperation + m MountOperation -- result mountOperationNew = liftIO $ do result <- g_mount_operation_new checkUnexpectedReturnNULL "g_mount_operation_new" result @@ -710,9 +769,8 @@ -- method MountOperation::get_anonymous -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -724,8 +782,8 @@ mountOperationGetAnonymous :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result mountOperationGetAnonymous _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_anonymous _obj' @@ -733,11 +791,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -749,19 +810,22 @@ mountOperationGetChoice :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -773,8 +837,8 @@ mountOperationGetDomain :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountOperationGetDomain _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_domain _obj' @@ -783,11 +847,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -799,8 +866,8 @@ mountOperationGetPassword :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountOperationGetPassword _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_password _obj' @@ -809,11 +876,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "PasswordSave" -- throws : False -- Skip return : False @@ -825,8 +895,8 @@ mountOperationGetPasswordSave :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m PasswordSave + a -- _obj + -> m PasswordSave -- result mountOperationGetPasswordSave _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_password_save _obj' @@ -834,11 +904,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -850,8 +923,8 @@ mountOperationGetUsername :: (MonadIO m, MountOperationK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result mountOperationGetUsername _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_mount_operation_get_username _obj' @@ -860,11 +933,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -877,9 +953,9 @@ mountOperationReply :: (MonadIO m, MountOperationK a) => - a -> -- _obj - MountOperationResult -> -- result - m () + a -- _obj + -> MountOperationResult -- result_ + -> m () -- result mountOperationReply _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = (fromIntegral . fromEnum) result_ @@ -887,11 +963,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -904,9 +983,9 @@ mountOperationSetAnonymous :: (MonadIO m, MountOperationK a) => - a -> -- _obj - Bool -> -- anonymous - m () + a -- _obj + -> Bool -- anonymous + -> m () -- result mountOperationSetAnonymous _obj anonymous = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let anonymous' = (fromIntegral . fromEnum) anonymous @@ -914,11 +993,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "choice", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "choice", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -931,20 +1013,23 @@ mountOperationSetChoice :: (MonadIO m, MountOperationK a) => - a -> -- _obj - Int32 -> -- choice - m () + 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -957,9 +1042,9 @@ mountOperationSetDomain :: (MonadIO m, MountOperationK a) => - a -> -- _obj - T.Text -> -- domain - m () + a -- _obj + -> T.Text -- domain + -> m () -- result mountOperationSetDomain _obj domain = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj domain' <- textToCString domain @@ -968,11 +1053,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -985,9 +1073,9 @@ mountOperationSetPassword :: (MonadIO m, MountOperationK a) => - a -> -- _obj - T.Text -> -- password - m () + a -- _obj + -> T.Text -- password + -> m () -- result mountOperationSetPassword _obj password = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj password' <- textToCString password @@ -996,11 +1084,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1013,9 +1104,9 @@ mountOperationSetPasswordSave :: (MonadIO m, MountOperationK a) => - a -> -- _obj - PasswordSave -> -- save - m () + a -- _obj + -> PasswordSave -- save + -> m () -- result mountOperationSetPasswordSave _obj save = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let save' = (fromIntegral . fromEnum) save @@ -1023,11 +1114,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1040,9 +1134,9 @@ mountOperationSetUsername :: (MonadIO m, MountOperationK a) => - a -> -- _obj - T.Text -> -- username - m () + a -- _obj + -> T.Text -- username + -> m () -- result mountOperationSetUsername _obj username = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj username' <- textToCString username @@ -1050,5 +1144,9 @@ 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 --- a/GI/Gio/Objects/MountOperation.hs-boot +++ b/GI/Gio/Objects/MountOperation.hs-boot @@ -23,3 +23,16 @@ 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 --- a/GI/Gio/Objects/NativeVolumeMonitor.hs +++ b/GI/Gio/Objects/NativeVolumeMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -49,10 +50,48 @@ 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 = ('[ '("drive-changed", VolumeMonitorDriveChangedSignalInfo), '("drive-connected", VolumeMonitorDriveConnectedSignalInfo), '("drive-disconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("drive-eject-button", VolumeMonitorDriveEjectButtonSignalInfo), '("drive-stop-button", VolumeMonitorDriveStopButtonSignalInfo), '("mount-added", VolumeMonitorMountAddedSignalInfo), '("mount-changed", VolumeMonitorMountChangedSignalInfo), '("mount-pre-unmount", VolumeMonitorMountPreUnmountSignalInfo), '("mount-removed", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("volume-added", VolumeMonitorVolumeAddedSignalInfo), '("volume-changed", VolumeMonitorVolumeChangedSignalInfo), '("volume-removed", VolumeMonitorVolumeRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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/NetworkAddress.hs b/GI/Gio/Objects/NetworkAddress.hs --- a/GI/Gio/Objects/NetworkAddress.hs +++ b/GI/Gio/Objects/NetworkAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** networkAddressGetHostname + NetworkAddressGetHostnameMethodInfo , networkAddressGetHostname , -- ** networkAddressGetPort + NetworkAddressGetPortMethodInfo , networkAddressGetPort , -- ** networkAddressGetScheme + NetworkAddressGetSchemeMethodInfo , networkAddressGetScheme , @@ -101,6 +105,44 @@ 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] @@ -117,7 +159,7 @@ type AttrSetTypeConstraint NetworkAddressHostnamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkAddressHostnamePropertyInfo = NetworkAddressK type AttrGetType NetworkAddressHostnamePropertyInfo = T.Text - type AttrLabel NetworkAddressHostnamePropertyInfo = "NetworkAddress::hostname" + type AttrLabel NetworkAddressHostnamePropertyInfo = "hostname" attrGet _ = getNetworkAddressHostname attrSet _ = undefined attrConstruct _ = constructNetworkAddressHostname @@ -138,7 +180,7 @@ type AttrSetTypeConstraint NetworkAddressPortPropertyInfo = (~) Word32 type AttrBaseTypeConstraint NetworkAddressPortPropertyInfo = NetworkAddressK type AttrGetType NetworkAddressPortPropertyInfo = Word32 - type AttrLabel NetworkAddressPortPropertyInfo = "NetworkAddress::port" + type AttrLabel NetworkAddressPortPropertyInfo = "port" attrGet _ = getNetworkAddressPort attrSet _ = undefined attrConstruct _ = constructNetworkAddressPort @@ -159,7 +201,7 @@ type AttrSetTypeConstraint NetworkAddressSchemePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkAddressSchemePropertyInfo = NetworkAddressK type AttrGetType NetworkAddressSchemePropertyInfo = T.Text - type AttrLabel NetworkAddressSchemePropertyInfo = "NetworkAddress::scheme" + type AttrLabel NetworkAddressSchemePropertyInfo = "scheme" attrGet _ = getNetworkAddressScheme attrSet _ = undefined attrConstruct _ = constructNetworkAddressScheme @@ -168,13 +210,12 @@ type NetworkAddressAttributeList = ('[ '("hostname", NetworkAddressHostnamePropertyInfo), '("port", NetworkAddressPortPropertyInfo), '("scheme", NetworkAddressSchemePropertyInfo)] :: [(Symbol, *)]) type instance SignalList NetworkAddress = NetworkAddressSignalList -type NetworkAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NetworkAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method NetworkAddress::new -- method type : Constructor --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkAddress" -- throws : False -- Skip return : False @@ -187,9 +228,9 @@ networkAddressNew :: (MonadIO m) => - T.Text -> -- hostname - Word16 -> -- port - m NetworkAddress + T.Text -- hostname + -> Word16 -- port + -> m NetworkAddress -- result networkAddressNew hostname port = liftIO $ do hostname' <- textToCString hostname result <- g_network_address_new hostname' port @@ -200,9 +241,8 @@ -- method NetworkAddress::new_loopback -- method type : Constructor --- Args : [Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkAddress" -- throws : False -- Skip return : False @@ -214,8 +254,8 @@ networkAddressNewLoopback :: (MonadIO m) => - Word16 -> -- port - m NetworkAddress + Word16 -- port + -> m NetworkAddress -- result networkAddressNewLoopback port = liftIO $ do result <- g_network_address_new_loopback port checkUnexpectedReturnNULL "g_network_address_new_loopback" result @@ -224,9 +264,8 @@ -- method NetworkAddress::get_hostname -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -238,8 +277,8 @@ networkAddressGetHostname :: (MonadIO m, NetworkAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkAddressGetHostname _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_address_get_hostname _obj' @@ -248,11 +287,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -264,19 +306,22 @@ networkAddressGetPort :: (MonadIO m, NetworkAddressK a) => - a -> -- _obj - m Word16 + 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 {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -288,8 +333,8 @@ networkAddressGetScheme :: (MonadIO m, NetworkAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkAddressGetScheme _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_address_get_scheme _obj' @@ -298,11 +343,14 @@ 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 {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkAddress" -- throws : True -- Skip return : False @@ -316,26 +364,25 @@ networkAddressParse :: (MonadIO m) => - T.Text -> -- host_and_port - Word16 -> -- default_port - m NetworkAddress -networkAddressParse host_and_port default_port = liftIO $ do - host_and_port' <- textToCString host_and_port + T.Text -- hostAndPort + -> Word16 -- defaultPort + -> m NetworkAddress -- result +networkAddressParse hostAndPort defaultPort = liftIO $ do + hostAndPort' <- textToCString hostAndPort onException (do - result <- propagateGError $ g_network_address_parse host_and_port' default_port + result <- propagateGError $ g_network_address_parse hostAndPort' defaultPort checkUnexpectedReturnNULL "g_network_address_parse" result result' <- (wrapObject NetworkAddress) result - freeMem host_and_port' + freeMem hostAndPort' return result' ) (do - freeMem host_and_port' + freeMem hostAndPort' ) -- method NetworkAddress::parse_uri -- method type : MemberFunction --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkAddress" -- throws : True -- Skip return : False @@ -349,13 +396,13 @@ networkAddressParseUri :: (MonadIO m) => - T.Text -> -- uri - Word16 -> -- default_port - m NetworkAddress -networkAddressParseUri uri default_port = liftIO $ do + 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' default_port + result <- propagateGError $ g_network_address_parse_uri uri' defaultPort checkUnexpectedReturnNULL "g_network_address_parse_uri" result result' <- (wrapObject NetworkAddress) result freeMem uri' diff --git a/GI/Gio/Objects/NetworkAddress.hs-boot b/GI/Gio/Objects/NetworkAddress.hs-boot --- a/GI/Gio/Objects/NetworkAddress.hs-boot +++ b/GI/Gio/Objects/NetworkAddress.hs-boot @@ -14,3 +14,6 @@ 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 --- a/GI/Gio/Objects/NetworkService.hs +++ b/GI/Gio/Objects/NetworkService.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** networkServiceGetDomain + NetworkServiceGetDomainMethodInfo , networkServiceGetDomain , -- ** networkServiceGetProtocol + NetworkServiceGetProtocolMethodInfo , networkServiceGetProtocol , -- ** networkServiceGetScheme + NetworkServiceGetSchemeMethodInfo , networkServiceGetScheme , -- ** networkServiceGetService + NetworkServiceGetServiceMethodInfo , networkServiceGetService , @@ -37,6 +42,7 @@ -- ** networkServiceSetScheme + NetworkServiceSetSchemeMethodInfo , networkServiceSetScheme , @@ -104,6 +110,46 @@ 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] @@ -120,7 +166,7 @@ type AttrSetTypeConstraint NetworkServiceDomainPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkServiceDomainPropertyInfo = NetworkServiceK type AttrGetType NetworkServiceDomainPropertyInfo = T.Text - type AttrLabel NetworkServiceDomainPropertyInfo = "NetworkService::domain" + type AttrLabel NetworkServiceDomainPropertyInfo = "domain" attrGet _ = getNetworkServiceDomain attrSet _ = undefined attrConstruct _ = constructNetworkServiceDomain @@ -141,7 +187,7 @@ type AttrSetTypeConstraint NetworkServiceProtocolPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkServiceProtocolPropertyInfo = NetworkServiceK type AttrGetType NetworkServiceProtocolPropertyInfo = T.Text - type AttrLabel NetworkServiceProtocolPropertyInfo = "NetworkService::protocol" + type AttrLabel NetworkServiceProtocolPropertyInfo = "protocol" attrGet _ = getNetworkServiceProtocol attrSet _ = undefined attrConstruct _ = constructNetworkServiceProtocol @@ -165,7 +211,7 @@ type AttrSetTypeConstraint NetworkServiceSchemePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkServiceSchemePropertyInfo = NetworkServiceK type AttrGetType NetworkServiceSchemePropertyInfo = T.Text - type AttrLabel NetworkServiceSchemePropertyInfo = "NetworkService::scheme" + type AttrLabel NetworkServiceSchemePropertyInfo = "scheme" attrGet _ = getNetworkServiceScheme attrSet _ = setNetworkServiceScheme attrConstruct _ = constructNetworkServiceScheme @@ -186,7 +232,7 @@ type AttrSetTypeConstraint NetworkServiceServicePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NetworkServiceServicePropertyInfo = NetworkServiceK type AttrGetType NetworkServiceServicePropertyInfo = T.Text - type AttrLabel NetworkServiceServicePropertyInfo = "NetworkService::service" + type AttrLabel NetworkServiceServicePropertyInfo = "service" attrGet _ = getNetworkServiceService attrSet _ = undefined attrConstruct _ = constructNetworkServiceService @@ -195,13 +241,12 @@ type NetworkServiceAttributeList = ('[ '("domain", NetworkServiceDomainPropertyInfo), '("protocol", NetworkServiceProtocolPropertyInfo), '("scheme", NetworkServiceSchemePropertyInfo), '("service", NetworkServiceServicePropertyInfo)] :: [(Symbol, *)]) type instance SignalList NetworkService = NetworkServiceSignalList -type NetworkServiceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NetworkServiceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method NetworkService::new -- method type : Constructor --- Args : [Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "NetworkService" -- throws : False -- Skip return : False @@ -215,10 +260,10 @@ networkServiceNew :: (MonadIO m) => - T.Text -> -- service - T.Text -> -- protocol - T.Text -> -- domain - m NetworkService + T.Text -- service + -> T.Text -- protocol + -> T.Text -- domain + -> m NetworkService -- result networkServiceNew service protocol domain = liftIO $ do service' <- textToCString service protocol' <- textToCString protocol @@ -233,9 +278,8 @@ -- method NetworkService::get_domain -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -247,8 +291,8 @@ networkServiceGetDomain :: (MonadIO m, NetworkServiceK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkServiceGetDomain _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_service_get_domain _obj' @@ -257,11 +301,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -273,8 +320,8 @@ networkServiceGetProtocol :: (MonadIO m, NetworkServiceK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkServiceGetProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_service_get_protocol _obj' @@ -283,11 +330,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -299,8 +349,8 @@ networkServiceGetScheme :: (MonadIO m, NetworkServiceK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkServiceGetScheme _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_service_get_scheme _obj' @@ -309,11 +359,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -325,8 +378,8 @@ networkServiceGetService :: (MonadIO m, NetworkServiceK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result networkServiceGetService _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_network_service_get_service _obj' @@ -335,11 +388,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -352,9 +408,9 @@ networkServiceSetScheme :: (MonadIO m, NetworkServiceK a) => - a -> -- _obj - T.Text -> -- scheme - m () + a -- _obj + -> T.Text -- scheme + -> m () -- result networkServiceSetScheme _obj scheme = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj scheme' <- textToCString scheme @@ -362,5 +418,9 @@ 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 --- a/GI/Gio/Objects/NetworkService.hs-boot +++ b/GI/Gio/Objects/NetworkService.hs-boot @@ -15,3 +15,8 @@ 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 --- a/GI/Gio/Objects/Notification.hs +++ b/GI/Gio/Objects/Notification.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** notificationAddButton + NotificationAddButtonMethodInfo , notificationAddButton , -- ** notificationAddButtonWithTarget + NotificationAddButtonWithTargetMethodInfo, notificationAddButtonWithTarget , @@ -29,30 +32,37 @@ -- ** notificationSetBody + NotificationSetBodyMethodInfo , notificationSetBody , -- ** notificationSetDefaultAction + NotificationSetDefaultActionMethodInfo , notificationSetDefaultAction , -- ** notificationSetDefaultActionAndTarget + NotificationSetDefaultActionAndTargetMethodInfo, notificationSetDefaultActionAndTarget , -- ** notificationSetIcon + NotificationSetIconMethodInfo , notificationSetIcon , -- ** notificationSetPriority + NotificationSetPriorityMethodInfo , notificationSetPriority , -- ** notificationSetTitle + NotificationSetTitleMethodInfo , notificationSetTitle , -- ** notificationSetUrgent + NotificationSetUrgentMethodInfo , notificationSetUrgent , @@ -92,17 +102,58 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotificationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Notification::new -- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Notification" -- throws : False -- Skip return : False @@ -114,8 +165,8 @@ notificationNew :: (MonadIO m) => - T.Text -> -- title - m Notification + T.Text -- title + -> m Notification -- result notificationNew title = liftIO $ do title' <- textToCString title result <- g_notification_new title' @@ -126,9 +177,8 @@ -- method Notification::add_button -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -142,25 +192,28 @@ notificationAddButton :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- label - T.Text -> -- detailed_action - m () -notificationAddButton _obj label detailed_action = liftIO $ do + a -- _obj + -> T.Text -- label + -> T.Text -- detailedAction + -> m () -- result +notificationAddButton _obj label detailedAction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj label' <- textToCString label - detailed_action' <- textToCString detailed_action - g_notification_add_button _obj' label' detailed_action' + detailedAction' <- textToCString detailedAction + g_notification_add_button _obj' label' detailedAction' touchManagedPtr _obj freeMem label' - freeMem detailed_action' + 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -175,11 +228,11 @@ notificationAddButtonWithTarget :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- label - T.Text -> -- action - Maybe (GVariant) -> -- target - m () + 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 @@ -195,11 +248,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -212,9 +268,9 @@ notificationSetBody :: (MonadIO m, NotificationK a) => - a -> -- _obj - Maybe (T.Text) -> -- body - m () + a -- _obj + -> Maybe (T.Text) -- body + -> m () -- result notificationSetBody _obj body = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeBody <- case body of @@ -227,11 +283,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -244,22 +303,25 @@ notificationSetDefaultAction :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- detailed_action - m () -notificationSetDefaultAction _obj detailed_action = liftIO $ do + a -- _obj + -> T.Text -- detailedAction + -> m () -- result +notificationSetDefaultAction _obj detailedAction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action' <- textToCString detailed_action - g_notification_set_default_action _obj' detailed_action' + detailedAction' <- textToCString detailedAction + g_notification_set_default_action _obj' detailedAction' touchManagedPtr _obj - freeMem detailed_action' + 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -273,10 +335,10 @@ notificationSetDefaultActionAndTarget :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- action - Maybe (GVariant) -> -- target - m () + a -- _obj + -> T.Text -- action + -> Maybe (GVariant) -- target + -> m () -- result notificationSetDefaultActionAndTarget _obj action target = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj action' <- textToCString action @@ -290,11 +352,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -307,9 +372,9 @@ notificationSetIcon :: (MonadIO m, NotificationK a, IconK b) => - a -> -- _obj - b -> -- icon - m () + a -- _obj + -> b -- icon + -> m () -- result notificationSetIcon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -318,11 +383,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gio" "NotificationPriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gio" "NotificationPriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -335,9 +403,9 @@ notificationSetPriority :: (MonadIO m, NotificationK a) => - a -> -- _obj - NotificationPriority -> -- priority - m () + a -- _obj + -> NotificationPriority -- priority + -> m () -- result notificationSetPriority _obj priority = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let priority' = (fromIntegral . fromEnum) priority @@ -345,11 +413,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -362,9 +433,9 @@ notificationSetTitle :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- title - m () + a -- _obj + -> T.Text -- title + -> m () -- result notificationSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title @@ -373,11 +444,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -390,14 +464,18 @@ notificationSetUrgent :: (MonadIO m, NotificationK a) => - a -> -- _obj - Bool -> -- urgent - m () + 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 --- a/GI/Gio/Objects/Notification.hs-boot +++ b/GI/Gio/Objects/Notification.hs-boot @@ -11,3 +11,12 @@ 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 --- a/GI/Gio/Objects/OutputStream.hs +++ b/GI/Gio/Objects/OutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,94 +18,117 @@ -- * 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 , @@ -145,17 +169,72 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type OutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method OutputStream::clear_pending -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -167,19 +246,22 @@ outputStreamClearPending :: (MonadIO m, OutputStreamK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -193,9 +275,9 @@ outputStreamClose :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result outputStreamClose _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -212,11 +294,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -232,12 +317,12 @@ outputStreamCloseAsync :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamCloseAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -251,17 +336,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_close_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -275,9 +363,9 @@ outputStreamCloseFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result outputStreamCloseFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -290,11 +378,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -308,9 +399,9 @@ outputStreamFlush :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result outputStreamFlush _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -327,11 +418,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -347,12 +441,12 @@ outputStreamFlushAsync :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamFlushAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -366,17 +460,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_flush_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -390,9 +487,9 @@ outputStreamFlushFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result outputStreamFlushFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -405,11 +502,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -421,8 +521,8 @@ outputStreamHasPending :: (MonadIO m, OutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result outputStreamHasPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_output_stream_has_pending _obj' @@ -430,11 +530,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -446,8 +549,8 @@ outputStreamIsClosed :: (MonadIO m, OutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result outputStreamIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_output_stream_is_closed _obj' @@ -455,11 +558,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -471,8 +577,8 @@ outputStreamIsClosing :: (MonadIO m, OutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result outputStreamIsClosing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_output_stream_is_closing _obj' @@ -480,11 +586,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -497,8 +606,8 @@ outputStreamSetPending :: (MonadIO m, OutputStreamK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result outputStreamSetPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -509,11 +618,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -529,11 +641,11 @@ outputStreamSplice :: (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => - a -> -- _obj - b -> -- source - [OutputStreamSpliceFlags] -> -- flags - Maybe (c) -> -- cancellable - m Int64 + 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 @@ -553,11 +665,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -575,14 +690,14 @@ outputStreamSpliceAsync :: (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => - a -> -- _obj - b -> -- source - [OutputStreamSpliceFlags] -> -- flags - Int32 -> -- io_priority - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamSpliceAsync _obj source flags io_priority cancellable callback = liftIO $ do + 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 @@ -598,18 +713,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_splice_async _obj' source' flags' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -623,9 +741,9 @@ outputStreamSpliceFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result outputStreamSpliceFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -638,11 +756,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -658,10 +779,10 @@ outputStreamWrite :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -681,11 +802,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TBoolean -- throws : True -- Skip return : False @@ -702,38 +826,41 @@ outputStreamWriteAll :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m (Word64) + 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 - bytes_written <- allocMem :: IO (Ptr Word64) + 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 bytes_written maybeCancellable - bytes_written' <- peek bytes_written + _ <- propagateGError $ g_output_stream_write_all _obj' buffer' count bytesWritten maybeCancellable + bytesWritten' <- peek bytesWritten touchManagedPtr _obj whenJust cancellable touchManagedPtr freeMem buffer' - freeMem bytes_written - return bytes_written' + freeMem bytesWritten + return bytesWritten' ) (do freeMem buffer' - freeMem bytes_written + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -751,13 +878,13 @@ outputStreamWriteAllAsync :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamWriteAllAsync _obj buffer io_priority cancellable callback = liftIO $ do + 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 @@ -773,18 +900,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_write_all_async _obj' buffer' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -799,29 +929,32 @@ outputStreamWriteAllFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (Word64) + a -- _obj + -> b -- result_ + -> m (Word64) -- result outputStreamWriteAllFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - bytes_written <- allocMem :: IO (Ptr Word64) + bytesWritten <- allocMem :: IO (Ptr Word64) onException (do - _ <- propagateGError $ g_output_stream_write_all_finish _obj' result_' bytes_written - bytes_written' <- peek bytes_written + _ <- propagateGError $ g_output_stream_write_all_finish _obj' result_' bytesWritten + bytesWritten' <- peek bytesWritten touchManagedPtr _obj touchManagedPtr result_ - freeMem bytes_written - return bytes_written' + freeMem bytesWritten + return bytesWritten' ) (do - freeMem bytes_written + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -839,13 +972,13 @@ outputStreamWriteAsync :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamWriteAsync _obj buffer io_priority cancellable callback = liftIO $ do + 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 @@ -861,18 +994,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_write_async _obj' buffer' count io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -887,10 +1023,10 @@ outputStreamWriteBytes :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - GLib.Bytes -> -- bytes - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -909,11 +1045,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -930,13 +1069,13 @@ outputStreamWriteBytesAsync :: (MonadIO m, OutputStreamK a, CancellableK b) => - a -> -- _obj - GLib.Bytes -> -- bytes - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -outputStreamWriteBytesAsync _obj bytes io_priority cancellable callback = liftIO $ do + 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 @@ -951,18 +1090,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_output_stream_write_bytes_async _obj' bytes' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -976,9 +1118,9 @@ outputStreamWriteBytesFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result outputStreamWriteBytesFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -991,11 +1133,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1009,9 +1154,9 @@ outputStreamWriteFinish :: (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Int64 + a -- _obj + -> b -- result_ + -> m Int64 -- result outputStreamWriteFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1023,5 +1168,9 @@ ) (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 --- a/GI/Gio/Objects/OutputStream.hs-boot +++ b/GI/Gio/Objects/OutputStream.hs-boot @@ -11,3 +11,26 @@ 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 --- a/GI/Gio/Objects/Permission.hs +++ b/GI/Gio/Objects/Permission.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * 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 , @@ -110,6 +121,49 @@ 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] @@ -123,7 +177,7 @@ type AttrSetTypeConstraint PermissionAllowedPropertyInfo = (~) () type AttrBaseTypeConstraint PermissionAllowedPropertyInfo = PermissionK type AttrGetType PermissionAllowedPropertyInfo = Bool - type AttrLabel PermissionAllowedPropertyInfo = "Permission::allowed" + type AttrLabel PermissionAllowedPropertyInfo = "allowed" attrGet _ = getPermissionAllowed attrSet _ = undefined attrConstruct _ = undefined @@ -141,7 +195,7 @@ type AttrSetTypeConstraint PermissionCanAcquirePropertyInfo = (~) () type AttrBaseTypeConstraint PermissionCanAcquirePropertyInfo = PermissionK type AttrGetType PermissionCanAcquirePropertyInfo = Bool - type AttrLabel PermissionCanAcquirePropertyInfo = "Permission::can-acquire" + type AttrLabel PermissionCanAcquirePropertyInfo = "can-acquire" attrGet _ = getPermissionCanAcquire attrSet _ = undefined attrConstruct _ = undefined @@ -159,22 +213,21 @@ type AttrSetTypeConstraint PermissionCanReleasePropertyInfo = (~) () type AttrBaseTypeConstraint PermissionCanReleasePropertyInfo = PermissionK type AttrGetType PermissionCanReleasePropertyInfo = Bool - type AttrLabel PermissionCanReleasePropertyInfo = "Permission::can-release" + type AttrLabel PermissionCanReleasePropertyInfo = "can-release" attrGet _ = getPermissionCanRelease attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList Permission = PermissionAttributeList -type PermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("can-acquire", PermissionCanAcquirePropertyInfo), '("can-release", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) +type PermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) type instance SignalList Permission = PermissionSignalList -type PermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Permission::acquire -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -188,9 +241,9 @@ permissionAcquire :: (MonadIO m, PermissionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result permissionAcquire _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -207,11 +260,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -226,10 +282,10 @@ permissionAcquireAsync :: (MonadIO m, PermissionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result permissionAcquireAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -244,17 +300,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_permission_acquire_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -268,9 +327,9 @@ permissionAcquireFinish :: (MonadIO m, PermissionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result permissionAcquireFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -283,11 +342,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -299,8 +361,8 @@ permissionGetAllowed :: (MonadIO m, PermissionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result permissionGetAllowed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_permission_get_allowed _obj' @@ -308,11 +370,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -324,8 +389,8 @@ permissionGetCanAcquire :: (MonadIO m, PermissionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result permissionGetCanAcquire _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_permission_get_can_acquire _obj' @@ -333,11 +398,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -349,8 +417,8 @@ permissionGetCanRelease :: (MonadIO m, PermissionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result permissionGetCanRelease _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_permission_get_can_release _obj' @@ -358,11 +426,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_acquire", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_release", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_acquire", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_release", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -377,25 +448,28 @@ permissionImplUpdate :: (MonadIO m, PermissionK a) => - a -> -- _obj - Bool -> -- allowed - Bool -> -- can_acquire - Bool -> -- can_release - m () -permissionImplUpdate _obj allowed can_acquire can_release = liftIO $ do + 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 can_acquire' = (fromIntegral . fromEnum) can_acquire - let can_release' = (fromIntegral . fromEnum) can_release - g_permission_impl_update _obj' allowed' can_acquire' can_release' + 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -409,9 +483,9 @@ permissionRelease :: (MonadIO m, PermissionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result permissionRelease _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -428,11 +502,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -447,10 +524,10 @@ permissionReleaseAsync :: (MonadIO m, PermissionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result permissionReleaseAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -465,17 +542,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_permission_release_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -489,9 +569,9 @@ permissionReleaseFinish :: (MonadIO m, PermissionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result permissionReleaseFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -503,5 +583,9 @@ ) (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 --- a/GI/Gio/Objects/Permission.hs-boot +++ b/GI/Gio/Objects/Permission.hs-boot @@ -14,3 +14,13 @@ 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 --- a/GI/Gio/Objects/PropertyAction.hs +++ b/GI/Gio/Objects/PropertyAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -102,6 +103,47 @@ 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], propTransfer = TransferNothing, propDeprecated = Nothing} --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propTransfer = TransferNothing, propDeprecated = Nothing} @@ -118,7 +160,7 @@ type AttrSetTypeConstraint PropertyActionEnabledPropertyInfo = (~) () type AttrBaseTypeConstraint PropertyActionEnabledPropertyInfo = PropertyActionK type AttrGetType PropertyActionEnabledPropertyInfo = Bool - type AttrLabel PropertyActionEnabledPropertyInfo = "PropertyAction::enabled" + type AttrLabel PropertyActionEnabledPropertyInfo = "enabled" attrGet _ = getPropertyActionEnabled attrSet _ = undefined attrConstruct _ = undefined @@ -139,7 +181,7 @@ type AttrSetTypeConstraint PropertyActionInvertBooleanPropertyInfo = (~) Bool type AttrBaseTypeConstraint PropertyActionInvertBooleanPropertyInfo = PropertyActionK type AttrGetType PropertyActionInvertBooleanPropertyInfo = Bool - type AttrLabel PropertyActionInvertBooleanPropertyInfo = "PropertyAction::invert-boolean" + type AttrLabel PropertyActionInvertBooleanPropertyInfo = "invert-boolean" attrGet _ = getPropertyActionInvertBoolean attrSet _ = undefined attrConstruct _ = constructPropertyActionInvertBoolean @@ -160,7 +202,7 @@ type AttrSetTypeConstraint PropertyActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PropertyActionNamePropertyInfo = PropertyActionK type AttrGetType PropertyActionNamePropertyInfo = T.Text - type AttrLabel PropertyActionNamePropertyInfo = "PropertyAction::name" + type AttrLabel PropertyActionNamePropertyInfo = "name" attrGet _ = getPropertyActionName attrSet _ = undefined attrConstruct _ = constructPropertyActionName @@ -178,7 +220,7 @@ type AttrSetTypeConstraint PropertyActionObjectPropertyInfo = GObject.ObjectK type AttrBaseTypeConstraint PropertyActionObjectPropertyInfo = PropertyActionK type AttrGetType PropertyActionObjectPropertyInfo = () - type AttrLabel PropertyActionObjectPropertyInfo = "PropertyAction::object" + type AttrLabel PropertyActionObjectPropertyInfo = "object" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructPropertyActionObject @@ -196,7 +238,7 @@ type AttrSetTypeConstraint PropertyActionParameterTypePropertyInfo = (~) () type AttrBaseTypeConstraint PropertyActionParameterTypePropertyInfo = PropertyActionK type AttrGetType PropertyActionParameterTypePropertyInfo = GLib.VariantType - type AttrLabel PropertyActionParameterTypePropertyInfo = "PropertyAction::parameter-type" + type AttrLabel PropertyActionParameterTypePropertyInfo = "parameter-type" attrGet _ = getPropertyActionParameterType attrSet _ = undefined attrConstruct _ = undefined @@ -214,7 +256,7 @@ type AttrSetTypeConstraint PropertyActionPropertyNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PropertyActionPropertyNamePropertyInfo = PropertyActionK type AttrGetType PropertyActionPropertyNamePropertyInfo = () - type AttrLabel PropertyActionPropertyNamePropertyInfo = "PropertyAction::property-name" + type AttrLabel PropertyActionPropertyNamePropertyInfo = "property-name" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructPropertyActionPropertyName @@ -232,7 +274,7 @@ type AttrSetTypeConstraint PropertyActionStatePropertyInfo = (~) () type AttrBaseTypeConstraint PropertyActionStatePropertyInfo = PropertyActionK type AttrGetType PropertyActionStatePropertyInfo = GVariant - type AttrLabel PropertyActionStatePropertyInfo = "PropertyAction::state" + type AttrLabel PropertyActionStatePropertyInfo = "state" attrGet _ = getPropertyActionState attrSet _ = undefined attrConstruct _ = undefined @@ -250,22 +292,21 @@ type AttrSetTypeConstraint PropertyActionStateTypePropertyInfo = (~) () type AttrBaseTypeConstraint PropertyActionStateTypePropertyInfo = PropertyActionK type AttrGetType PropertyActionStateTypePropertyInfo = GLib.VariantType - type AttrLabel PropertyActionStateTypePropertyInfo = "PropertyAction::state-type" + type AttrLabel PropertyActionStateTypePropertyInfo = "state-type" attrGet _ = getPropertyActionStateType attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList PropertyAction = PropertyActionAttributeList -type PropertyActionAttributeList = ('[ '("enabled", PropertyActionEnabledPropertyInfo), '("invert-boolean", PropertyActionInvertBooleanPropertyInfo), '("object", PropertyActionObjectPropertyInfo), '("parameter-type", PropertyActionParameterTypePropertyInfo), '("property-name", PropertyActionPropertyNamePropertyInfo), '("state", PropertyActionStatePropertyInfo), '("state-type", PropertyActionStateTypePropertyInfo)] :: [(Symbol, *)]) +type PropertyActionAttributeList = ('[ '("enabled", PropertyActionEnabledPropertyInfo), '("invertBoolean", PropertyActionInvertBooleanPropertyInfo), '("object", PropertyActionObjectPropertyInfo), '("parameterType", PropertyActionParameterTypePropertyInfo), '("propertyName", PropertyActionPropertyNamePropertyInfo), '("state", PropertyActionStatePropertyInfo), '("stateType", PropertyActionStateTypePropertyInfo)] :: [(Symbol, *)]) type instance SignalList PropertyAction = PropertyActionSignalList -type PropertyActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PropertyActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PropertyAction::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "PropertyAction" -- throws : False -- Skip return : False @@ -279,20 +320,20 @@ propertyActionNew :: (MonadIO m, GObject.ObjectK a) => - T.Text -> -- name - a -> -- object - T.Text -> -- property_name - m PropertyAction -propertyActionNew name object property_name = liftIO $ do + T.Text -- name + -> a -- object + -> T.Text -- propertyName + -> m PropertyAction -- result +propertyActionNew name object propertyName = liftIO $ do name' <- textToCString name let object' = unsafeManagedPtrCastPtr object - property_name' <- textToCString property_name - result <- g_property_action_new name' object' property_name' + 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 property_name' + freeMem propertyName' return result' diff --git a/GI/Gio/Objects/ProxyAddress.hs b/GI/Gio/Objects/ProxyAddress.hs --- a/GI/Gio/Objects/ProxyAddress.hs +++ b/GI/Gio/Objects/ProxyAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,30 +18,37 @@ -- * Methods -- ** proxyAddressGetDestinationHostname + ProxyAddressGetDestinationHostnameMethodInfo, proxyAddressGetDestinationHostname , -- ** proxyAddressGetDestinationPort + ProxyAddressGetDestinationPortMethodInfo, proxyAddressGetDestinationPort , -- ** proxyAddressGetDestinationProtocol + ProxyAddressGetDestinationProtocolMethodInfo, proxyAddressGetDestinationProtocol , -- ** proxyAddressGetPassword + ProxyAddressGetPasswordMethodInfo , proxyAddressGetPassword , -- ** proxyAddressGetProtocol + ProxyAddressGetProtocolMethodInfo , proxyAddressGetProtocol , -- ** proxyAddressGetUri + ProxyAddressGetUriMethodInfo , proxyAddressGetUri , -- ** proxyAddressGetUsername + ProxyAddressGetUsernameMethodInfo , proxyAddressGetUsername , @@ -129,6 +137,55 @@ 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] @@ -145,7 +202,7 @@ type AttrSetTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = ProxyAddressK type AttrGetType ProxyAddressDestinationHostnamePropertyInfo = T.Text - type AttrLabel ProxyAddressDestinationHostnamePropertyInfo = "ProxyAddress::destination-hostname" + type AttrLabel ProxyAddressDestinationHostnamePropertyInfo = "destination-hostname" attrGet _ = getProxyAddressDestinationHostname attrSet _ = undefined attrConstruct _ = constructProxyAddressDestinationHostname @@ -166,7 +223,7 @@ type AttrSetTypeConstraint ProxyAddressDestinationPortPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ProxyAddressDestinationPortPropertyInfo = ProxyAddressK type AttrGetType ProxyAddressDestinationPortPropertyInfo = Word32 - type AttrLabel ProxyAddressDestinationPortPropertyInfo = "ProxyAddress::destination-port" + type AttrLabel ProxyAddressDestinationPortPropertyInfo = "destination-port" attrGet _ = getProxyAddressDestinationPort attrSet _ = undefined attrConstruct _ = constructProxyAddressDestinationPort @@ -187,7 +244,7 @@ type AttrSetTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = ProxyAddressK type AttrGetType ProxyAddressDestinationProtocolPropertyInfo = T.Text - type AttrLabel ProxyAddressDestinationProtocolPropertyInfo = "ProxyAddress::destination-protocol" + type AttrLabel ProxyAddressDestinationProtocolPropertyInfo = "destination-protocol" attrGet _ = getProxyAddressDestinationProtocol attrSet _ = undefined attrConstruct _ = constructProxyAddressDestinationProtocol @@ -208,7 +265,7 @@ type AttrSetTypeConstraint ProxyAddressPasswordPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressPasswordPropertyInfo = ProxyAddressK type AttrGetType ProxyAddressPasswordPropertyInfo = T.Text - type AttrLabel ProxyAddressPasswordPropertyInfo = "ProxyAddress::password" + type AttrLabel ProxyAddressPasswordPropertyInfo = "password" attrGet _ = getProxyAddressPassword attrSet _ = undefined attrConstruct _ = constructProxyAddressPassword @@ -229,7 +286,7 @@ type AttrSetTypeConstraint ProxyAddressProtocolPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressProtocolPropertyInfo = ProxyAddressK type AttrGetType ProxyAddressProtocolPropertyInfo = T.Text - type AttrLabel ProxyAddressProtocolPropertyInfo = "ProxyAddress::protocol" + type AttrLabel ProxyAddressProtocolPropertyInfo = "protocol" attrGet _ = getProxyAddressProtocol attrSet _ = undefined attrConstruct _ = constructProxyAddressProtocol @@ -250,7 +307,7 @@ type AttrSetTypeConstraint ProxyAddressUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressUriPropertyInfo = ProxyAddressK type AttrGetType ProxyAddressUriPropertyInfo = T.Text - type AttrLabel ProxyAddressUriPropertyInfo = "ProxyAddress::uri" + type AttrLabel ProxyAddressUriPropertyInfo = "uri" attrGet _ = getProxyAddressUri attrSet _ = undefined attrConstruct _ = constructProxyAddressUri @@ -271,22 +328,21 @@ type AttrSetTypeConstraint ProxyAddressUsernamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressUsernamePropertyInfo = ProxyAddressK type AttrGetType ProxyAddressUsernamePropertyInfo = T.Text - type AttrLabel ProxyAddressUsernamePropertyInfo = "ProxyAddress::username" + type AttrLabel ProxyAddressUsernamePropertyInfo = "username" attrGet _ = getProxyAddressUsername attrSet _ = undefined attrConstruct _ = constructProxyAddressUsername type instance AttributeList ProxyAddress = ProxyAddressAttributeList -type ProxyAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("destination-hostname", ProxyAddressDestinationHostnamePropertyInfo), '("destination-port", ProxyAddressDestinationPortPropertyInfo), '("destination-protocol", ProxyAddressDestinationProtocolPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("password", ProxyAddressPasswordPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("protocol", ProxyAddressProtocolPropertyInfo), '("scope-id", InetSocketAddressScopeIdPropertyInfo), '("uri", ProxyAddressUriPropertyInfo), '("username", ProxyAddressUsernamePropertyInfo)] :: [(Symbol, *)]) +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, *)]) type instance SignalList ProxyAddress = ProxyAddressSignalList -type ProxyAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProxyAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ProxyAddress::new -- method type : Constructor --- Args : [Arg {argName = "inetaddr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "inetaddr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ProxyAddress" -- throws : False -- Skip return : False @@ -304,18 +360,18 @@ proxyAddressNew :: (MonadIO m, InetAddressK a) => - a -> -- inetaddr - Word16 -> -- port - T.Text -> -- protocol - T.Text -> -- dest_hostname - Word16 -> -- dest_port - Maybe (T.Text) -> -- username - Maybe (T.Text) -> -- password - m ProxyAddress -proxyAddressNew inetaddr port protocol dest_hostname dest_port username password = liftIO $ do + 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 - dest_hostname' <- textToCString dest_hostname + destHostname' <- textToCString destHostname maybeUsername <- case username of Nothing -> return nullPtr Just jUsername -> do @@ -326,21 +382,20 @@ Just jPassword -> do jPassword' <- textToCString jPassword return jPassword' - result <- g_proxy_address_new inetaddr' port protocol' dest_hostname' dest_port maybeUsername maybePassword + 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 dest_hostname' + freeMem destHostname' freeMem maybeUsername freeMem maybePassword return result' -- method ProxyAddress::get_destination_hostname -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -352,8 +407,8 @@ proxyAddressGetDestinationHostname :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetDestinationHostname _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_destination_hostname _obj' @@ -362,11 +417,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -378,19 +436,22 @@ proxyAddressGetDestinationPort :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m Word16 + 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -402,8 +463,8 @@ proxyAddressGetDestinationProtocol :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetDestinationProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_destination_protocol _obj' @@ -412,11 +473,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -428,8 +492,8 @@ proxyAddressGetPassword :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetPassword _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_password _obj' @@ -438,11 +502,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -454,8 +521,8 @@ proxyAddressGetProtocol :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_protocol _obj' @@ -464,11 +531,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -480,8 +550,8 @@ proxyAddressGetUri :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetUri _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_uri _obj' @@ -490,11 +560,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -506,8 +579,8 @@ proxyAddressGetUsername :: (MonadIO m, ProxyAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result proxyAddressGetUsername _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_proxy_address_get_username _obj' @@ -515,5 +588,9 @@ 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 --- a/GI/Gio/Objects/ProxyAddress.hs-boot +++ b/GI/Gio/Objects/ProxyAddress.hs-boot @@ -18,3 +18,10 @@ 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 --- a/GI/Gio/Objects/ProxyAddressEnumerator.hs +++ b/GI/Gio/Objects/ProxyAddressEnumerator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -77,6 +78,42 @@ 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] @@ -93,7 +130,7 @@ type AttrSetTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = SocketConnectableK type AttrBaseTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = ProxyAddressEnumeratorK type AttrGetType ProxyAddressEnumeratorConnectablePropertyInfo = SocketConnectable - type AttrLabel ProxyAddressEnumeratorConnectablePropertyInfo = "ProxyAddressEnumerator::connectable" + type AttrLabel ProxyAddressEnumeratorConnectablePropertyInfo = "connectable" attrGet _ = getProxyAddressEnumeratorConnectable attrSet _ = undefined attrConstruct _ = constructProxyAddressEnumeratorConnectable @@ -114,7 +151,7 @@ type AttrSetTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = (~) Word32 type AttrBaseTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = ProxyAddressEnumeratorK type AttrGetType ProxyAddressEnumeratorDefaultPortPropertyInfo = Word32 - type AttrLabel ProxyAddressEnumeratorDefaultPortPropertyInfo = "ProxyAddressEnumerator::default-port" + type AttrLabel ProxyAddressEnumeratorDefaultPortPropertyInfo = "default-port" attrGet _ = getProxyAddressEnumeratorDefaultPort attrSet _ = undefined attrConstruct _ = constructProxyAddressEnumeratorDefaultPort @@ -138,7 +175,7 @@ type AttrSetTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyResolverK type AttrBaseTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyAddressEnumeratorK type AttrGetType ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyResolver - type AttrLabel ProxyAddressEnumeratorProxyResolverPropertyInfo = "ProxyAddressEnumerator::proxy-resolver" + type AttrLabel ProxyAddressEnumeratorProxyResolverPropertyInfo = "proxy-resolver" attrGet _ = getProxyAddressEnumeratorProxyResolver attrSet _ = setProxyAddressEnumeratorProxyResolver attrConstruct _ = constructProxyAddressEnumeratorProxyResolver @@ -159,15 +196,15 @@ type AttrSetTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = ProxyAddressEnumeratorK type AttrGetType ProxyAddressEnumeratorUriPropertyInfo = T.Text - type AttrLabel ProxyAddressEnumeratorUriPropertyInfo = "ProxyAddressEnumerator::uri" + type AttrLabel ProxyAddressEnumeratorUriPropertyInfo = "uri" attrGet _ = getProxyAddressEnumeratorUri attrSet _ = undefined attrConstruct _ = constructProxyAddressEnumeratorUri type instance AttributeList ProxyAddressEnumerator = ProxyAddressEnumeratorAttributeList -type ProxyAddressEnumeratorAttributeList = ('[ '("connectable", ProxyAddressEnumeratorConnectablePropertyInfo), '("default-port", ProxyAddressEnumeratorDefaultPortPropertyInfo), '("proxy-resolver", ProxyAddressEnumeratorProxyResolverPropertyInfo), '("uri", ProxyAddressEnumeratorUriPropertyInfo)] :: [(Symbol, *)]) +type ProxyAddressEnumeratorAttributeList = ('[ '("connectable", ProxyAddressEnumeratorConnectablePropertyInfo), '("defaultPort", ProxyAddressEnumeratorDefaultPortPropertyInfo), '("proxyResolver", ProxyAddressEnumeratorProxyResolverPropertyInfo), '("uri", ProxyAddressEnumeratorUriPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ProxyAddressEnumerator = ProxyAddressEnumeratorSignalList -type ProxyAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ProxyAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/Gio/Objects/Resolver.hs b/GI/Gio/Objects/Resolver.hs --- a/GI/Gio/Objects/Resolver.hs +++ b/GI/Gio/Objects/Resolver.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,54 +22,67 @@ -- ** 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 , @@ -123,6 +137,52 @@ 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 () @@ -170,13 +230,12 @@ connectSignal _ = connectResolverReload type instance SignalList Resolver = ResolverSignalList -type ResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("reload", ResolverReloadSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("reload", ResolverReloadSignalInfo)] :: [(Symbol, *)]) -- method Resolver::lookup_by_address -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -191,10 +250,10 @@ resolverLookupByAddress :: (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => - a -> -- _obj - b -> -- address - Maybe (c) -> -- cancellable - m T.Text + 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 @@ -216,11 +275,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -236,11 +298,11 @@ resolverLookupByAddressAsync :: (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => - a -> -- _obj - b -> -- address - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -256,18 +318,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_resolver_lookup_by_address_async _obj' address' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False @@ -281,9 +346,9 @@ resolverLookupByAddressFinish :: (MonadIO m, ResolverK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m T.Text + a -- _obj + -> b -- result_ + -> m T.Text -- result resolverLookupByAddressFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -299,11 +364,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "InetAddress") -- throws : True -- Skip return : False @@ -318,10 +386,10 @@ resolverLookupByName :: (MonadIO m, ResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- hostname - Maybe (b) -> -- cancellable - m [InetAddress] + a -- _obj + -> T.Text -- hostname + -> Maybe (b) -- cancellable + -> m [InetAddress] -- result resolverLookupByName _obj hostname cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj hostname' <- textToCString hostname @@ -344,11 +412,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,11 +435,11 @@ resolverLookupByNameAsync :: (MonadIO m, ResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- hostname - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -384,18 +455,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_resolver_lookup_by_name_async _obj' hostname' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "InetAddress") -- throws : True -- Skip return : False @@ -409,9 +483,9 @@ resolverLookupByNameFinish :: (MonadIO m, ResolverK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [InetAddress] + a -- _obj + -> b -- result_ + -> m [InetAddress] -- result resolverLookupByNameFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -428,11 +502,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList TVariant -- throws : True -- Skip return : False @@ -448,22 +525,22 @@ resolverLookupRecords :: (MonadIO m, ResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- rrname - ResolverRecordType -> -- record_type - Maybe (b) -> -- cancellable - m [GVariant] -resolverLookupRecords _obj rrname record_type cancellable = liftIO $ do + 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 record_type' = (fromIntegral . fromEnum) record_type + 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' record_type' maybeCancellable + result <- propagateGError $ g_resolver_lookup_records _obj' rrname' recordType' maybeCancellable checkUnexpectedReturnNULL "g_resolver_lookup_records" result result' <- unpackGList result result'' <- mapM wrapGVariantPtr result' @@ -476,11 +553,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -497,16 +577,16 @@ resolverLookupRecordsAsync :: (MonadIO m, ResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- rrname - ResolverRecordType -> -- record_type - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -resolverLookupRecordsAsync _obj rrname record_type cancellable callback = liftIO $ do + 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 record_type' = (fromIntegral . fromEnum) record_type + let recordType' = (fromIntegral . fromEnum) recordType maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -519,18 +599,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_resolver_lookup_records_async _obj' rrname' record_type' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList TVariant -- throws : True -- Skip return : False @@ -544,9 +627,9 @@ resolverLookupRecordsFinish :: (MonadIO m, ResolverK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [GVariant] + a -- _obj + -> b -- result_ + -> m [GVariant] -- result resolverLookupRecordsFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -563,11 +646,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "SrvTarget") -- throws : True -- Skip return : False @@ -584,12 +670,12 @@ resolverLookupService :: (MonadIO m, ResolverK a, CancellableK b) => - a -> -- _obj - T.Text -> -- service - T.Text -> -- protocol - T.Text -> -- domain - Maybe (b) -> -- cancellable - m [SrvTarget] + 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 @@ -618,11 +704,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -640,13 +729,13 @@ 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 () + 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 @@ -664,8 +753,8 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_resolver_lookup_service_async _obj' service' protocol' domain' maybeCancellable maybeCallback user_data + let userData = nullPtr + g_resolver_lookup_service_async _obj' service' protocol' domain' maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr freeMem service' @@ -673,11 +762,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "SrvTarget") -- throws : True -- Skip return : False @@ -691,9 +783,9 @@ resolverLookupServiceFinish :: (MonadIO m, ResolverK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [SrvTarget] + a -- _obj + -> b -- result_ + -> m [SrvTarget] -- result resolverLookupServiceFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -710,11 +802,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -726,19 +821,22 @@ resolverSetDefault :: (MonadIO m, ResolverK a) => - a -> -- _obj - m () + 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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Resolver" -- throws : False -- Skip return : False @@ -749,7 +847,7 @@ resolverGetDefault :: (MonadIO m) => - m Resolver + m Resolver -- result resolverGetDefault = liftIO $ do result <- g_resolver_get_default checkUnexpectedReturnNULL "g_resolver_get_default" result diff --git a/GI/Gio/Objects/Resolver.hs-boot b/GI/Gio/Objects/Resolver.hs-boot --- a/GI/Gio/Objects/Resolver.hs-boot +++ b/GI/Gio/Objects/Resolver.hs-boot @@ -12,3 +12,16 @@ 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 --- a/GI/Gio/Objects/Settings.hs +++ b/GI/Gio/Objects/Settings.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,94 +18,117 @@ -- * 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 , @@ -137,50 +161,62 @@ -- ** 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 , @@ -316,6 +352,74 @@ 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] -> @@ -345,12 +449,12 @@ Int32 -> Ptr () -> IO CInt -settingsChangeEventCallbackWrapper _cb _ keys n_keys _ = do +settingsChangeEventCallbackWrapper _cb _ keys nKeys _ = do maybeKeys <- if keys == nullPtr then return Nothing else do - keys' <- (unpackStorableArrayWithLength n_keys) keys + keys' <- (unpackStorableArrayWithLength nKeys) keys return $ Just keys' result <- _cb maybeKeys let result' = (fromIntegral . fromEnum) result @@ -507,7 +611,7 @@ type AttrSetTypeConstraint SettingsDelayApplyPropertyInfo = (~) () type AttrBaseTypeConstraint SettingsDelayApplyPropertyInfo = SettingsK type AttrGetType SettingsDelayApplyPropertyInfo = Bool - type AttrLabel SettingsDelayApplyPropertyInfo = "Settings::delay-apply" + type AttrLabel SettingsDelayApplyPropertyInfo = "delay-apply" attrGet _ = getSettingsDelayApply attrSet _ = undefined attrConstruct _ = undefined @@ -525,7 +629,7 @@ type AttrSetTypeConstraint SettingsHasUnappliedPropertyInfo = (~) () type AttrBaseTypeConstraint SettingsHasUnappliedPropertyInfo = SettingsK type AttrGetType SettingsHasUnappliedPropertyInfo = Bool - type AttrLabel SettingsHasUnappliedPropertyInfo = "Settings::has-unapplied" + type AttrLabel SettingsHasUnappliedPropertyInfo = "has-unapplied" attrGet _ = getSettingsHasUnapplied attrSet _ = undefined attrConstruct _ = undefined @@ -546,7 +650,7 @@ type AttrSetTypeConstraint SettingsPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsPathPropertyInfo = SettingsK type AttrGetType SettingsPathPropertyInfo = T.Text - type AttrLabel SettingsPathPropertyInfo = "Settings::path" + type AttrLabel SettingsPathPropertyInfo = "path" attrGet _ = getSettingsPath attrSet _ = undefined attrConstruct _ = constructSettingsPath @@ -567,7 +671,7 @@ type AttrSetTypeConstraint SettingsSchemaPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsSchemaPropertyInfo = SettingsK type AttrGetType SettingsSchemaPropertyInfo = T.Text - type AttrLabel SettingsSchemaPropertyInfo = "Settings::schema" + type AttrLabel SettingsSchemaPropertyInfo = "schema" attrGet _ = getSettingsSchema attrSet _ = undefined attrConstruct _ = constructSettingsSchema @@ -588,7 +692,7 @@ type AttrSetTypeConstraint SettingsSchemaIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SettingsSchemaIdPropertyInfo = SettingsK type AttrGetType SettingsSchemaIdPropertyInfo = T.Text - type AttrLabel SettingsSchemaIdPropertyInfo = "Settings::schema-id" + type AttrLabel SettingsSchemaIdPropertyInfo = "schema-id" attrGet _ = getSettingsSchemaId attrSet _ = undefined attrConstruct _ = constructSettingsSchemaId @@ -609,13 +713,13 @@ type AttrSetTypeConstraint SettingsSettingsSchemaPropertyInfo = (~) SettingsSchema type AttrBaseTypeConstraint SettingsSettingsSchemaPropertyInfo = SettingsK type AttrGetType SettingsSettingsSchemaPropertyInfo = SettingsSchema - type AttrLabel SettingsSettingsSchemaPropertyInfo = "Settings::settings-schema" + type AttrLabel SettingsSettingsSchemaPropertyInfo = "settings-schema" attrGet _ = getSettingsSettingsSchema attrSet _ = undefined attrConstruct _ = constructSettingsSettingsSchema type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("delay-apply", SettingsDelayApplyPropertyInfo), '("has-unapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schema-id", SettingsSchemaIdPropertyInfo), '("settings-schema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)]) +type SettingsAttributeList = ('[ '("delayApply", SettingsDelayApplyPropertyInfo), '("hasUnapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schemaId", SettingsSchemaIdPropertyInfo), '("settingsSchema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)]) data SettingsChangeEventSignalInfo instance SignalInfo SettingsChangeEventSignalInfo where @@ -638,13 +742,12 @@ connectSignal _ = connectSettingsWritableChanged type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("change-event", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("writable-change-event", SettingsWritableChangeEventSignalInfo), '("writable-changed", SettingsWritableChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SettingsSignalList = ('[ '("changeEvent", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("writableChangeEvent", SettingsWritableChangeEventSignalInfo), '("writableChanged", SettingsWritableChangedSignalInfo)] :: [(Symbol, *)]) -- method Settings::new -- method type : Constructor --- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -656,21 +759,20 @@ settingsNew :: (MonadIO m) => - T.Text -> -- schema_id - m Settings -settingsNew schema_id = liftIO $ do - schema_id' <- textToCString schema_id - result <- g_settings_new schema_id' + 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 schema_id' + freeMem schemaId' return result' -- method Settings::new_full -- method type : Constructor --- Args : [Arg {argName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -684,10 +786,10 @@ settingsNewFull :: (MonadIO m) => - SettingsSchema -> -- schema - Maybe (SettingsBackend) -> -- backend - Maybe (T.Text) -> -- path - m Settings + 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 @@ -710,9 +812,8 @@ -- method Settings::new_with_backend -- method type : Constructor --- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -725,24 +826,23 @@ settingsNewWithBackend :: (MonadIO m) => - T.Text -> -- schema_id - SettingsBackend -> -- backend - m Settings -settingsNewWithBackend schema_id backend = liftIO $ do - schema_id' <- textToCString schema_id + 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 schema_id' backend' + result <- g_settings_new_with_backend schemaId' backend' checkUnexpectedReturnNULL "g_settings_new_with_backend" result result' <- (wrapObject Settings) result touchManagedPtr backend - freeMem schema_id' + freeMem schemaId' return result' -- method Settings::new_with_backend_and_path -- method type : Constructor --- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -756,27 +856,26 @@ settingsNewWithBackendAndPath :: (MonadIO m) => - T.Text -> -- schema_id - SettingsBackend -> -- backend - T.Text -> -- path - m Settings -settingsNewWithBackendAndPath schema_id backend path = liftIO $ do - schema_id' <- textToCString schema_id + 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 schema_id' backend' 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 schema_id' + freeMem schemaId' freeMem path' return result' -- method Settings::new_with_path -- method type : Constructor --- Args : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -789,24 +888,23 @@ settingsNewWithPath :: (MonadIO m) => - T.Text -> -- schema_id - T.Text -> -- path - m Settings -settingsNewWithPath schema_id path = liftIO $ do - schema_id' <- textToCString schema_id + 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 schema_id' path' + result <- g_settings_new_with_path schemaId' path' checkUnexpectedReturnNULL "g_settings_new_with_path" result result' <- (wrapObject Settings) result - freeMem schema_id' + freeMem schemaId' freeMem path' return result' -- method Settings::apply -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -818,19 +916,22 @@ settingsApply :: (MonadIO m, SettingsK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -846,12 +947,12 @@ settingsBind :: (MonadIO m, SettingsK a, GObject.ObjectK b) => - a -> -- _obj - T.Text -> -- key - b -> -- object - T.Text -> -- property - [SettingsBindFlags] -> -- flags - m () + 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 @@ -865,11 +966,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -885,12 +989,12 @@ settingsBindWritable :: (MonadIO m, SettingsK a, GObject.ObjectK b) => - a -> -- _obj - T.Text -> -- key - b -> -- object - T.Text -> -- property - Bool -> -- inverted - m () + 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 @@ -904,11 +1008,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Action" -- throws : False -- Skip return : False @@ -921,9 +1028,9 @@ settingsCreateAction :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Action + a -- _obj + -> T.Text -- key + -> m Action -- result settingsCreateAction _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -934,11 +1041,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -950,19 +1060,22 @@ settingsDelay :: (MonadIO m, SettingsK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -975,9 +1088,9 @@ settingsGetBoolean :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Bool + a -- _obj + -> T.Text -- key + -> m Bool -- result settingsGetBoolean _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -987,11 +1100,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Settings" -- throws : False -- Skip return : False @@ -1004,9 +1120,9 @@ settingsGetChild :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - m Settings + a -- _obj + -> T.Text -- name + -> m Settings -- result settingsGetChild _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -1017,11 +1133,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -1034,9 +1153,9 @@ settingsGetDefaultValue :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m GVariant + a -- _obj + -> T.Text -- key + -> m GVariant -- result settingsGetDefaultValue _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1047,11 +1166,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False @@ -1064,9 +1186,9 @@ settingsGetDouble :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Double + a -- _obj + -> T.Text -- key + -> m Double -- result settingsGetDouble _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1076,11 +1198,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1093,9 +1218,9 @@ settingsGetEnum :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Int32 + a -- _obj + -> T.Text -- key + -> m Int32 -- result settingsGetEnum _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1104,11 +1229,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1121,9 +1249,9 @@ settingsGetFlags :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Word32 + a -- _obj + -> T.Text -- key + -> m Word32 -- result settingsGetFlags _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1132,11 +1260,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1148,8 +1279,8 @@ settingsGetHasUnapplied :: (MonadIO m, SettingsK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result settingsGetHasUnapplied _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_settings_get_has_unapplied _obj' @@ -1157,11 +1288,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1174,9 +1308,9 @@ settingsGetInt :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Int32 + a -- _obj + -> T.Text -- key + -> m Int32 -- result settingsGetInt _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1185,11 +1319,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1204,26 +1341,29 @@ settingsGetMapped :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - SettingsGetMapping -> -- mapping - m () + a -- _obj + -> T.Text -- key + -> SettingsGetMapping -- mapping + -> m () -- result settingsGetMapped _obj key mapping = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key mapping' <- mkSettingsGetMapping (settingsGetMappingWrapper Nothing mapping) - let user_data = nullPtr - g_settings_get_mapped _obj' key' mapping' user_data + let userData = nullPtr + g_settings_get_mapped _obj' key' mapping' userData safeFreeFunPtr $ castFunPtrToPtr mapping' touchManagedPtr _obj freeMem key' return () +data SettingsGetMappedMethodInfo +instance (signature ~ (T.Text -> SettingsGetMapping -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsGetMappedMethodInfo a signature where + overloadedMethod _ = settingsGetMapped + -- method Settings::get_range -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -1236,9 +1376,9 @@ {-# 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 + a -- _obj + -> T.Text -- key + -> m GVariant -- result settingsGetRange _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1249,11 +1389,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -1266,9 +1409,9 @@ settingsGetString :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m T.Text + a -- _obj + -> T.Text -- key + -> m T.Text -- result settingsGetString _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1280,11 +1423,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1297,9 +1443,9 @@ settingsGetStrv :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m [T.Text] + a -- _obj + -> T.Text -- key + -> m [T.Text] -- result settingsGetStrv _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1312,11 +1458,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1329,9 +1478,9 @@ settingsGetUint :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m Word32 + a -- _obj + -> T.Text -- key + -> m Word32 -- result settingsGetUint _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1340,11 +1489,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -1357,9 +1509,9 @@ settingsGetUserValue :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m GVariant + a -- _obj + -> T.Text -- key + -> m GVariant -- result settingsGetUserValue _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1370,11 +1522,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -1387,9 +1542,9 @@ settingsGetValue :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m GVariant + a -- _obj + -> T.Text -- key + -> m GVariant -- result settingsGetValue _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1400,11 +1555,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1417,9 +1575,9 @@ settingsIsWritable :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- name - m Bool + a -- _obj + -> T.Text -- name + -> m Bool -- result settingsIsWritable _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name @@ -1429,11 +1587,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1445,8 +1606,8 @@ settingsListChildren :: (MonadIO m, SettingsK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result settingsListChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_settings_list_children _obj' @@ -1457,11 +1618,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1473,8 +1637,8 @@ settingsListKeys :: (MonadIO m, SettingsK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result settingsListKeys _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_settings_list_keys _obj' @@ -1485,11 +1649,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1503,10 +1670,10 @@ {-# 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 + a -- _obj + -> T.Text -- key + -> GVariant -- value + -> m Bool -- result settingsRangeCheck _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1517,11 +1684,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1534,9 +1704,9 @@ settingsReset :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - m () + a -- _obj + -> T.Text -- key + -> m () -- result settingsReset _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1545,11 +1715,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1561,19 +1734,22 @@ settingsRevert :: (MonadIO m, SettingsK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1587,10 +1763,10 @@ settingsSetBoolean :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Bool -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Bool -- value + -> m Bool -- result settingsSetBoolean _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1601,11 +1777,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1619,10 +1798,10 @@ settingsSetDouble :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Double -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Double -- value + -> m Bool -- result settingsSetDouble _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1633,11 +1812,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1651,10 +1833,10 @@ settingsSetEnum :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Int32 -- value + -> m Bool -- result settingsSetEnum _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1664,11 +1846,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1682,10 +1867,10 @@ settingsSetFlags :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Word32 -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Word32 -- value + -> m Bool -- result settingsSetFlags _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1695,11 +1880,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1713,10 +1901,10 @@ settingsSetInt :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Int32 -- value + -> m Bool -- result settingsSetInt _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1726,11 +1914,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1744,10 +1935,10 @@ settingsSetString :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - T.Text -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> T.Text -- value + -> m Bool -- result settingsSetString _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1759,11 +1950,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1777,10 +1971,10 @@ settingsSetStrv :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Maybe ([T.Text]) -> -- value - m Bool + 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 @@ -1797,11 +1991,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1815,10 +2012,10 @@ settingsSetUint :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - Word32 -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> Word32 -- value + -> m Bool -- result settingsSetUint _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1828,11 +2025,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1846,10 +2046,10 @@ settingsSetValue :: (MonadIO m, SettingsK a) => - a -> -- _obj - T.Text -> -- key - GVariant -> -- value - m Bool + a -- _obj + -> T.Text -- key + -> GVariant -- value + -> m Bool -- result settingsSetValue _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -1860,11 +2060,14 @@ 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 : [] --- hInArgs : [] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1875,7 +2078,7 @@ {-# DEPRECATED settingsListRelocatableSchemas ["(Since version 2.40)","Use g_settings_schema_source_list_schemas() instead"]#-} settingsListRelocatableSchemas :: (MonadIO m) => - m [T.Text] + m [T.Text] -- result settingsListRelocatableSchemas = liftIO $ do result <- g_settings_list_relocatable_schemas checkUnexpectedReturnNULL "g_settings_list_relocatable_schemas" result @@ -1886,7 +2089,6 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1897,7 +2099,7 @@ {-# 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] + m [T.Text] -- result settingsListSchemas = liftIO $ do result <- g_settings_list_schemas checkUnexpectedReturnNULL "g_settings_list_schemas" result @@ -1908,7 +2110,6 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1919,16 +2120,15 @@ settingsSync :: (MonadIO m) => - m () + m () -- result settingsSync = liftIO $ do g_settings_sync return () -- method Settings::unbind -- method type : MemberFunction --- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1941,9 +2141,9 @@ settingsUnbind :: (MonadIO m, GObject.ObjectK a) => - a -> -- object - T.Text -> -- property - m () + a -- object + -> T.Text -- property + -> m () -- result settingsUnbind object property = liftIO $ do let object' = unsafeManagedPtrCastPtr object property' <- textToCString property diff --git a/GI/Gio/Objects/Settings.hs-boot b/GI/Gio/Objects/Settings.hs-boot --- a/GI/Gio/Objects/Settings.hs-boot +++ b/GI/Gio/Objects/Settings.hs-boot @@ -21,3 +21,38 @@ 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 --- a/GI/Gio/Objects/SimpleAction.hs +++ b/GI/Gio/Objects/SimpleAction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -25,14 +26,17 @@ -- ** simpleActionSetEnabled + SimpleActionSetEnabledMethodInfo , simpleActionSetEnabled , -- ** simpleActionSetState + SimpleActionSetStateMethodInfo , simpleActionSetState , -- ** simpleActionSetStateHint + SimpleActionSetStateHintMethodInfo , simpleActionSetStateHint , @@ -134,6 +138,50 @@ 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 -> @@ -259,7 +307,7 @@ type AttrSetTypeConstraint SimpleActionEnabledPropertyInfo = (~) Bool type AttrBaseTypeConstraint SimpleActionEnabledPropertyInfo = SimpleActionK type AttrGetType SimpleActionEnabledPropertyInfo = Bool - type AttrLabel SimpleActionEnabledPropertyInfo = "SimpleAction::enabled" + type AttrLabel SimpleActionEnabledPropertyInfo = "enabled" attrGet _ = getSimpleActionEnabled attrSet _ = setSimpleActionEnabled attrConstruct _ = constructSimpleActionEnabled @@ -280,7 +328,7 @@ type AttrSetTypeConstraint SimpleActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint SimpleActionNamePropertyInfo = SimpleActionK type AttrGetType SimpleActionNamePropertyInfo = T.Text - type AttrLabel SimpleActionNamePropertyInfo = "SimpleAction::name" + type AttrLabel SimpleActionNamePropertyInfo = "name" attrGet _ = getSimpleActionName attrSet _ = undefined attrConstruct _ = constructSimpleActionName @@ -301,7 +349,7 @@ type AttrSetTypeConstraint SimpleActionParameterTypePropertyInfo = (~) GLib.VariantType type AttrBaseTypeConstraint SimpleActionParameterTypePropertyInfo = SimpleActionK type AttrGetType SimpleActionParameterTypePropertyInfo = GLib.VariantType - type AttrLabel SimpleActionParameterTypePropertyInfo = "SimpleAction::parameter-type" + type AttrLabel SimpleActionParameterTypePropertyInfo = "parameter-type" attrGet _ = getSimpleActionParameterType attrSet _ = undefined attrConstruct _ = constructSimpleActionParameterType @@ -325,7 +373,7 @@ type AttrSetTypeConstraint SimpleActionStatePropertyInfo = (~) GVariant type AttrBaseTypeConstraint SimpleActionStatePropertyInfo = SimpleActionK type AttrGetType SimpleActionStatePropertyInfo = GVariant - type AttrLabel SimpleActionStatePropertyInfo = "SimpleAction::state" + type AttrLabel SimpleActionStatePropertyInfo = "state" attrGet _ = getSimpleActionState attrSet _ = setSimpleActionState attrConstruct _ = constructSimpleActionState @@ -343,13 +391,13 @@ type AttrSetTypeConstraint SimpleActionStateTypePropertyInfo = (~) () type AttrBaseTypeConstraint SimpleActionStateTypePropertyInfo = SimpleActionK type AttrGetType SimpleActionStateTypePropertyInfo = GLib.VariantType - type AttrLabel SimpleActionStateTypePropertyInfo = "SimpleAction::state-type" + type AttrLabel SimpleActionStateTypePropertyInfo = "state-type" attrGet _ = getSimpleActionStateType attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList SimpleAction = SimpleActionAttributeList -type SimpleActionAttributeList = ('[ '("state-type", SimpleActionStateTypePropertyInfo)] :: [(Symbol, *)]) +type SimpleActionAttributeList = ('[ '("stateType", SimpleActionStateTypePropertyInfo)] :: [(Symbol, *)]) data SimpleActionActivateSignalInfo instance SignalInfo SimpleActionActivateSignalInfo where @@ -362,13 +410,12 @@ connectSignal _ = connectSimpleActionChangeState type instance SignalList SimpleAction = SimpleActionSignalList -type SimpleActionSignalList = ('[ '("activate", SimpleActionActivateSignalInfo), '("change-state", SimpleActionChangeStateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimpleActionSignalList = ('[ '("activate", SimpleActionActivateSignalInfo), '("changeState", SimpleActionChangeStateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimpleAction::new -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimpleAction" -- throws : False -- Skip return : False @@ -381,28 +428,27 @@ simpleActionNew :: (MonadIO m) => - T.Text -> -- name - Maybe (GLib.VariantType) -> -- parameter_type - m SimpleAction -simpleActionNew name parameter_type = liftIO $ do + T.Text -- name + -> Maybe (GLib.VariantType) -- parameterType + -> m SimpleAction -- result +simpleActionNew name parameterType = liftIO $ do name' <- textToCString name - maybeParameter_type <- case parameter_type of + maybeParameterType <- case parameterType of Nothing -> return nullPtr - Just jParameter_type -> do - let jParameter_type' = unsafeManagedPtrGetPtr jParameter_type - return jParameter_type' - result <- g_simple_action_new name' maybeParameter_type + 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 parameter_type touchManagedPtr + whenJust parameterType touchManagedPtr freeMem name' return result' -- method SimpleAction::new_stateful -- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimpleAction" -- throws : False -- Skip return : False @@ -416,30 +462,29 @@ simpleActionNewStateful :: (MonadIO m) => - T.Text -> -- name - Maybe (GLib.VariantType) -> -- parameter_type - GVariant -> -- state - m SimpleAction -simpleActionNewStateful name parameter_type state = liftIO $ do + T.Text -- name + -> Maybe (GLib.VariantType) -- parameterType + -> GVariant -- state + -> m SimpleAction -- result +simpleActionNewStateful name parameterType state = liftIO $ do name' <- textToCString name - maybeParameter_type <- case parameter_type of + maybeParameterType <- case parameterType of Nothing -> return nullPtr - Just jParameter_type -> do - let jParameter_type' = unsafeManagedPtrGetPtr jParameter_type - return jParameter_type' + Just jParameterType -> do + let jParameterType' = unsafeManagedPtrGetPtr jParameterType + return jParameterType' let state' = unsafeManagedPtrGetPtr state - result <- g_simple_action_new_stateful name' maybeParameter_type state' + result <- g_simple_action_new_stateful name' maybeParameterType state' checkUnexpectedReturnNULL "g_simple_action_new_stateful" result result' <- (wrapObject SimpleAction) result - whenJust parameter_type touchManagedPtr + whenJust parameterType touchManagedPtr freeMem name' return result' -- method SimpleAction::set_enabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -452,9 +497,9 @@ simpleActionSetEnabled :: (MonadIO m, SimpleActionK a) => - a -> -- _obj - Bool -> -- enabled - m () + a -- _obj + -> Bool -- enabled + -> m () -- result simpleActionSetEnabled _obj enabled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let enabled' = (fromIntegral . fromEnum) enabled @@ -462,11 +507,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -479,9 +527,9 @@ simpleActionSetState :: (MonadIO m, SimpleActionK a) => - a -> -- _obj - GVariant -> -- value - m () + a -- _obj + -> GVariant -- value + -> m () -- result simpleActionSetState _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = unsafeManagedPtrGetPtr value @@ -489,11 +537,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_hint", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_hint", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -506,18 +557,22 @@ simpleActionSetStateHint :: (MonadIO m, SimpleActionK a) => - a -> -- _obj - Maybe (GVariant) -> -- state_hint - m () -simpleActionSetStateHint _obj state_hint = liftIO $ do + a -- _obj + -> Maybe (GVariant) -- stateHint + -> m () -- result +simpleActionSetStateHint _obj stateHint = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeState_hint <- case state_hint of + maybeStateHint <- case stateHint of Nothing -> return nullPtr - Just jState_hint -> do - let jState_hint' = unsafeManagedPtrGetPtr jState_hint - return jState_hint' - g_simple_action_set_state_hint _obj' maybeState_hint + 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 --- a/GI/Gio/Objects/SimpleAction.hs-boot +++ b/GI/Gio/Objects/SimpleAction.hs-boot @@ -18,3 +18,6 @@ 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 --- a/GI/Gio/Objects/SimpleActionGroup.hs +++ b/GI/Gio/Objects/SimpleActionGroup.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** simpleActionGroupAddEntries + SimpleActionGroupAddEntriesMethodInfo , simpleActionGroupAddEntries , -- ** simpleActionGroupInsert + SimpleActionGroupInsertMethodInfo , simpleActionGroupInsert , -- ** simpleActionGroupLookup + SimpleActionGroupLookupMethodInfo , simpleActionGroupLookup , @@ -33,6 +37,7 @@ -- ** simpleActionGroupRemove + SimpleActionGroupRemoveMethodInfo , simpleActionGroupRemove , @@ -72,17 +77,71 @@ 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 = ('[ '("action-added", ActionGroupActionAddedSignalInfo), '("action-enabled-changed", ActionGroupActionEnabledChangedSignalInfo), '("action-removed", ActionGroupActionRemovedSignalInfo), '("action-state-changed", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimpleActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimpleActionGroup::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "SimpleActionGroup" -- throws : False -- Skip return : False @@ -93,7 +152,7 @@ simpleActionGroupNew :: (MonadIO m) => - m SimpleActionGroup + m SimpleActionGroup -- result simpleActionGroupNew = liftIO $ do result <- g_simple_action_group_new checkUnexpectedReturnNULL "g_simple_action_group_new" result @@ -102,9 +161,8 @@ -- method SimpleActionGroup::add_entries -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -119,26 +177,29 @@ {-# DEPRECATED simpleActionGroupAddEntries ["(Since version 2.38)","Use g_action_map_add_action_entries()"]#-} simpleActionGroupAddEntries :: (MonadIO m, SimpleActionGroupK a) => - a -> -- _obj - [ActionEntry] -> -- entries - Ptr () -> -- user_data - m () -simpleActionGroupAddEntries _obj entries user_data = liftIO $ do - let n_entries = fromIntegral $ length entries + 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'' n_entries user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -151,9 +212,9 @@ {-# DEPRECATED simpleActionGroupInsert ["(Since version 2.38)","Use g_action_map_add_action()"]#-} simpleActionGroupInsert :: (MonadIO m, SimpleActionGroupK a, ActionK b) => - a -> -- _obj - b -> -- action - m () + a -- _obj + -> b -- action + -> m () -- result simpleActionGroupInsert _obj action = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let action' = unsafeManagedPtrCastPtr action @@ -162,11 +223,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Action" -- throws : False -- Skip return : False @@ -179,24 +243,27 @@ {-# DEPRECATED simpleActionGroupLookup ["(Since version 2.38)","Use g_action_map_lookup_action()"]#-} simpleActionGroupLookup :: (MonadIO m, SimpleActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m Action -simpleActionGroupLookup _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m Action -- result +simpleActionGroupLookup _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- g_simple_action_group_lookup _obj' action_name' + 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 action_name' + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -209,15 +276,19 @@ {-# DEPRECATED simpleActionGroupRemove ["(Since version 2.38)","Use g_action_map_remove_action()"]#-} simpleActionGroupRemove :: (MonadIO m, SimpleActionGroupK a) => - a -> -- _obj - T.Text -> -- action_name - m () -simpleActionGroupRemove _obj action_name = liftIO $ do + a -- _obj + -> T.Text -- actionName + -> m () -- result +simpleActionGroupRemove _obj actionName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - g_simple_action_group_remove _obj' action_name' + actionName' <- textToCString actionName + g_simple_action_group_remove _obj' actionName' touchManagedPtr _obj - freeMem action_name' + 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 --- a/GI/Gio/Objects/SimpleActionGroup.hs-boot +++ b/GI/Gio/Objects/SimpleActionGroup.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/SimpleAsyncResult.hs +++ b/GI/Gio/Objects/SimpleAsyncResult.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** simpleAsyncResultComplete + SimpleAsyncResultCompleteMethodInfo , simpleAsyncResultComplete , -- ** simpleAsyncResultCompleteInIdle + SimpleAsyncResultCompleteInIdleMethodInfo, simpleAsyncResultCompleteInIdle , -- ** simpleAsyncResultGetOpResGboolean + SimpleAsyncResultGetOpResGbooleanMethodInfo, simpleAsyncResultGetOpResGboolean , -- ** simpleAsyncResultGetOpResGssize + SimpleAsyncResultGetOpResGssizeMethodInfo, simpleAsyncResultGetOpResGssize , @@ -45,26 +50,32 @@ -- ** simpleAsyncResultPropagateError + SimpleAsyncResultPropagateErrorMethodInfo, simpleAsyncResultPropagateError , -- ** simpleAsyncResultSetCheckCancellable + SimpleAsyncResultSetCheckCancellableMethodInfo, simpleAsyncResultSetCheckCancellable , -- ** simpleAsyncResultSetFromError + SimpleAsyncResultSetFromErrorMethodInfo , simpleAsyncResultSetFromError , -- ** simpleAsyncResultSetHandleCancellation + SimpleAsyncResultSetHandleCancellationMethodInfo, simpleAsyncResultSetHandleCancellation , -- ** simpleAsyncResultSetOpResGboolean + SimpleAsyncResultSetOpResGbooleanMethodInfo, simpleAsyncResultSetOpResGboolean , -- ** simpleAsyncResultSetOpResGssize + SimpleAsyncResultSetOpResGssizeMethodInfo, simpleAsyncResultSetOpResGssize , @@ -104,17 +115,63 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimpleAsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimpleAsyncResult::new -- method type : Constructor --- Args : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimpleAsyncResult" -- throws : False -- Skip return : False @@ -129,16 +186,16 @@ {-# DEPRECATED simpleAsyncResultNew ["(Since version 2.46)","Use g_task_new() instead."]#-} simpleAsyncResultNew :: (MonadIO m, GObject.ObjectK a) => - Maybe (a) -> -- source_object - Maybe (AsyncReadyCallback) -> -- callback - Ptr () -> -- source_tag - m SimpleAsyncResult -simpleAsyncResultNew source_object callback source_tag = liftIO $ do - maybeSource_object <- case source_object of + 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 jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) maybeCallback <- case callback of Nothing -> return (castPtrToFunPtr nullPtr) @@ -146,18 +203,17 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - result <- g_simple_async_result_new maybeSource_object maybeCallback user_data source_tag + 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 source_object touchManagedPtr + whenJust sourceObject touchManagedPtr return result' -- method SimpleAsyncResult::new_from_error -- method type : Constructor --- Args : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimpleAsyncResult" -- throws : False -- Skip return : False @@ -172,16 +228,16 @@ {-# DEPRECATED simpleAsyncResultNewFromError ["(Since version 2.46)","Use g_task_new() and g_task_return_error() instead."]#-} simpleAsyncResultNewFromError :: (MonadIO m, GObject.ObjectK a) => - Maybe (a) -> -- source_object - Maybe (AsyncReadyCallback) -> -- callback - GError -> -- error - m SimpleAsyncResult -simpleAsyncResultNewFromError source_object callback error_ = liftIO $ do - maybeSource_object <- case source_object of + 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 jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) maybeCallback <- case callback of Nothing -> return (castPtrToFunPtr nullPtr) @@ -190,19 +246,18 @@ poke ptrcallback jCallback' return jCallback' let error_' = unsafeManagedPtrGetPtr error_ - let user_data = nullPtr - result <- g_simple_async_result_new_from_error maybeSource_object maybeCallback user_data 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 source_object touchManagedPtr + whenJust sourceObject touchManagedPtr touchManagedPtr error_ return result' -- method SimpleAsyncResult::complete -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -214,19 +269,22 @@ {-# DEPRECATED simpleAsyncResultComplete ["(Since version 2.46)","Use #GTask instead."]#-} simpleAsyncResultComplete :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -238,19 +296,22 @@ {-# DEPRECATED simpleAsyncResultCompleteInIdle ["(Since version 2.46)","Use #GTask instead."]#-} simpleAsyncResultCompleteInIdle :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -262,8 +323,8 @@ {-# DEPRECATED simpleAsyncResultGetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_propagate_boolean() instead."]#-} simpleAsyncResultGetOpResGboolean :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result simpleAsyncResultGetOpResGboolean _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_simple_async_result_get_op_res_gboolean _obj' @@ -271,11 +332,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -287,19 +351,22 @@ {-# DEPRECATED simpleAsyncResultGetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_propagate_int() instead."]#-} simpleAsyncResultGetOpResGssize :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - m Int64 + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -312,8 +379,8 @@ {-# DEPRECATED simpleAsyncResultPropagateError ["(Since version 2.46)","Use #GTask instead."]#-} simpleAsyncResultPropagateError :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result simpleAsyncResultPropagateError _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -324,11 +391,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -341,26 +411,29 @@ {-# DEPRECATED simpleAsyncResultSetCheckCancellable ["(Since version 2.46)","Use #GTask instead."]#-} simpleAsyncResultSetCheckCancellable :: (MonadIO m, SimpleAsyncResultK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- check_cancellable - m () -simpleAsyncResultSetCheckCancellable _obj check_cancellable = liftIO $ do + a -- _obj + -> Maybe (b) -- checkCancellable + -> m () -- result +simpleAsyncResultSetCheckCancellable _obj checkCancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeCheck_cancellable <- case check_cancellable of + maybeCheckCancellable <- case checkCancellable of Nothing -> return nullPtr - Just jCheck_cancellable -> do - let jCheck_cancellable' = unsafeManagedPtrCastPtr jCheck_cancellable - return jCheck_cancellable' - g_simple_async_result_set_check_cancellable _obj' maybeCheck_cancellable + Just jCheckCancellable -> do + let jCheckCancellable' = unsafeManagedPtrCastPtr jCheckCancellable + return jCheckCancellable' + g_simple_async_result_set_check_cancellable _obj' maybeCheckCancellable touchManagedPtr _obj - whenJust check_cancellable touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -373,9 +446,9 @@ {-# DEPRECATED simpleAsyncResultSetFromError ["(Since version 2.46)","Use #GTask and g_task_return_error() instead."]#-} simpleAsyncResultSetFromError :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - GError -> -- error - m () + a -- _obj + -> GError -- error_ + -> m () -- result simpleAsyncResultSetFromError _obj error_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let error_' = unsafeManagedPtrGetPtr error_ @@ -384,11 +457,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle_cancellation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle_cancellation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -401,21 +477,24 @@ {-# DEPRECATED simpleAsyncResultSetHandleCancellation ["(Since version 2.46)"]#-} simpleAsyncResultSetHandleCancellation :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - Bool -> -- handle_cancellation - m () -simpleAsyncResultSetHandleCancellation _obj handle_cancellation = liftIO $ do + a -- _obj + -> Bool -- handleCancellation + -> m () -- result +simpleAsyncResultSetHandleCancellation _obj handleCancellation = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let handle_cancellation' = (fromIntegral . fromEnum) handle_cancellation - g_simple_async_result_set_handle_cancellation _obj' handle_cancellation' + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "op_res", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "op_res", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -428,21 +507,24 @@ {-# DEPRECATED simpleAsyncResultSetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_return_boolean() instead."]#-} simpleAsyncResultSetOpResGboolean :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - Bool -> -- op_res - m () -simpleAsyncResultSetOpResGboolean _obj op_res = liftIO $ do + a -- _obj + -> Bool -- opRes + -> m () -- result +simpleAsyncResultSetOpResGboolean _obj opRes = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let op_res' = (fromIntegral . fromEnum) op_res - g_simple_async_result_set_op_res_gboolean _obj' op_res' + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "op_res", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "op_res", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -455,20 +537,23 @@ {-# DEPRECATED simpleAsyncResultSetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_return_int() instead."]#-} simpleAsyncResultSetOpResGssize :: (MonadIO m, SimpleAsyncResultK a) => - a -> -- _obj - Int64 -> -- op_res - m () -simpleAsyncResultSetOpResGssize _obj op_res = liftIO $ do + a -- _obj + -> Int64 -- opRes + -> m () -- result +simpleAsyncResultSetOpResGssize _obj opRes = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_simple_async_result_set_op_res_gssize _obj' op_res + 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 {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -482,22 +567,22 @@ {-# 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 - Maybe (Ptr ()) -> -- source_tag - m Bool -simpleAsyncResultIsValid result_ source source_tag = liftIO $ do + a -- result_ + -> Maybe (b) -- source + -> Maybe (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' - maybeSource_tag <- case source_tag of + maybeSourceTag <- case sourceTag of Nothing -> return nullPtr - Just jSource_tag -> do - return jSource_tag - result <- g_simple_async_result_is_valid result_' maybeSource maybeSource_tag + Just jSourceTag -> do + return jSourceTag + result <- g_simple_async_result_is_valid result_' maybeSource maybeSourceTag let result' = (/= 0) result touchManagedPtr result_ whenJust source touchManagedPtr diff --git a/GI/Gio/Objects/SimpleAsyncResult.hs-boot b/GI/Gio/Objects/SimpleAsyncResult.hs-boot --- a/GI/Gio/Objects/SimpleAsyncResult.hs-boot +++ b/GI/Gio/Objects/SimpleAsyncResult.hs-boot @@ -11,3 +11,13 @@ 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 --- a/GI/Gio/Objects/SimpleIOStream.hs +++ b/GI/Gio/Objects/SimpleIOStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -71,6 +72,49 @@ 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], propTransfer = TransferNothing, propDeprecated = Nothing} --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "input-stream", propType = TInterface "Gio" "InputStream", propFlags = [PropertyReadable], propTransfer = TransferNothing, propDeprecated = Nothing} @@ -93,7 +137,7 @@ type AttrSetTypeConstraint SimpleIOStreamInputStreamPropertyInfo = InputStreamK type AttrBaseTypeConstraint SimpleIOStreamInputStreamPropertyInfo = SimpleIOStreamK type AttrGetType SimpleIOStreamInputStreamPropertyInfo = InputStream - type AttrLabel SimpleIOStreamInputStreamPropertyInfo = "SimpleIOStream::input-stream" + type AttrLabel SimpleIOStreamInputStreamPropertyInfo = "input-stream" attrGet _ = getSimpleIOStreamInputStream attrSet _ = undefined attrConstruct _ = constructSimpleIOStreamInputStream @@ -114,7 +158,7 @@ type AttrSetTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = OutputStreamK type AttrBaseTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = SimpleIOStreamK type AttrGetType SimpleIOStreamOutputStreamPropertyInfo = OutputStream - type AttrLabel SimpleIOStreamOutputStreamPropertyInfo = "SimpleIOStream::output-stream" + type AttrLabel SimpleIOStreamOutputStreamPropertyInfo = "output-stream" attrGet _ = getSimpleIOStreamOutputStream attrSet _ = undefined attrConstruct _ = constructSimpleIOStreamOutputStream @@ -123,13 +167,12 @@ type SimpleIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SimpleIOStream = SimpleIOStreamSignalList -type SimpleIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimpleIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimpleIOStream::new -- method type : Constructor --- Args : [Arg {argName = "input_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "input_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimpleIOStream" -- throws : False -- Skip return : False @@ -142,17 +185,17 @@ simpleIOStreamNew :: (MonadIO m, InputStreamK a, OutputStreamK b) => - a -> -- input_stream - b -> -- output_stream - m SimpleIOStream -simpleIOStreamNew input_stream output_stream = liftIO $ do - let input_stream' = unsafeManagedPtrCastPtr input_stream - let output_stream' = unsafeManagedPtrCastPtr output_stream - result <- g_simple_io_stream_new input_stream' output_stream' + 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 input_stream - touchManagedPtr output_stream + touchManagedPtr inputStream + touchManagedPtr outputStream return result' diff --git a/GI/Gio/Objects/SimplePermission.hs b/GI/Gio/Objects/SimplePermission.hs --- a/GI/Gio/Objects/SimplePermission.hs +++ b/GI/Gio/Objects/SimplePermission.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -56,17 +57,59 @@ 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), '("can-acquire", PermissionCanAcquirePropertyInfo), '("can-release", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) +type SimplePermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) type instance SignalList SimplePermission = SimplePermissionSignalList -type SimplePermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimplePermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimplePermission::new -- method type : Constructor --- Args : [Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SimplePermission" -- throws : False -- Skip return : False @@ -78,8 +121,8 @@ simplePermissionNew :: (MonadIO m) => - Bool -> -- allowed - m SimplePermission + Bool -- allowed + -> m SimplePermission -- result simplePermissionNew allowed = liftIO $ do let allowed' = (fromIntegral . fromEnum) allowed result <- g_simple_permission_new allowed' diff --git a/GI/Gio/Objects/SimpleProxyResolver.hs b/GI/Gio/Objects/SimpleProxyResolver.hs --- a/GI/Gio/Objects/SimpleProxyResolver.hs +++ b/GI/Gio/Objects/SimpleProxyResolver.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,14 +22,17 @@ -- ** simpleProxyResolverSetDefaultProxy + SimpleProxyResolverSetDefaultProxyMethodInfo, simpleProxyResolverSetDefaultProxy , -- ** simpleProxyResolverSetIgnoreHosts + SimpleProxyResolverSetIgnoreHostsMethodInfo, simpleProxyResolverSetIgnoreHosts , -- ** simpleProxyResolverSetUriProxy + SimpleProxyResolverSetUriProxyMethodInfo, simpleProxyResolverSetUriProxy , @@ -85,6 +89,46 @@ 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] @@ -104,7 +148,7 @@ type AttrSetTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = SimpleProxyResolverK type AttrGetType SimpleProxyResolverDefaultProxyPropertyInfo = T.Text - type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "SimpleProxyResolver::default-proxy" + type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "default-proxy" attrGet _ = getSimpleProxyResolverDefaultProxy attrSet _ = setSimpleProxyResolverDefaultProxy attrConstruct _ = constructSimpleProxyResolverDefaultProxy @@ -128,22 +172,21 @@ type AttrSetTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = SimpleProxyResolverK type AttrGetType SimpleProxyResolverIgnoreHostsPropertyInfo = [T.Text] - type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "SimpleProxyResolver::ignore-hosts" + type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "ignore-hosts" attrGet _ = getSimpleProxyResolverIgnoreHosts attrSet _ = setSimpleProxyResolverIgnoreHosts attrConstruct _ = constructSimpleProxyResolverIgnoreHosts type instance AttributeList SimpleProxyResolver = SimpleProxyResolverAttributeList -type SimpleProxyResolverAttributeList = ('[ '("default-proxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignore-hosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)]) +type SimpleProxyResolverAttributeList = ('[ '("defaultProxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignoreHosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SimpleProxyResolver = SimpleProxyResolverSignalList -type SimpleProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SimpleProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SimpleProxyResolver::set_default_proxy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -156,22 +199,25 @@ simpleProxyResolverSetDefaultProxy :: (MonadIO m, SimpleProxyResolverK a) => - a -> -- _obj - T.Text -> -- default_proxy - m () -simpleProxyResolverSetDefaultProxy _obj default_proxy = liftIO $ do + a -- _obj + -> T.Text -- defaultProxy + -> m () -- result +simpleProxyResolverSetDefaultProxy _obj defaultProxy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - default_proxy' <- textToCString default_proxy - g_simple_proxy_resolver_set_default_proxy _obj' default_proxy' + defaultProxy' <- textToCString defaultProxy + g_simple_proxy_resolver_set_default_proxy _obj' defaultProxy' touchManagedPtr _obj - freeMem default_proxy' + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -184,22 +230,25 @@ simpleProxyResolverSetIgnoreHosts :: (MonadIO m, SimpleProxyResolverK a) => - a -> -- _obj - T.Text -> -- ignore_hosts - m () -simpleProxyResolverSetIgnoreHosts _obj ignore_hosts = liftIO $ do + a -- _obj + -> T.Text -- ignoreHosts + -> m () -- result +simpleProxyResolverSetIgnoreHosts _obj ignoreHosts = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - ignore_hosts' <- textToCString ignore_hosts - g_simple_proxy_resolver_set_ignore_hosts _obj' ignore_hosts' + ignoreHosts' <- textToCString ignoreHosts + g_simple_proxy_resolver_set_ignore_hosts _obj' ignoreHosts' touchManagedPtr _obj - freeMem ignore_hosts' + 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 {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -213,25 +262,28 @@ simpleProxyResolverSetUriProxy :: (MonadIO m, SimpleProxyResolverK a) => - a -> -- _obj - T.Text -> -- uri_scheme - T.Text -> -- proxy - m () -simpleProxyResolverSetUriProxy _obj uri_scheme proxy = liftIO $ do + a -- _obj + -> T.Text -- uriScheme + -> T.Text -- proxy + -> m () -- result +simpleProxyResolverSetUriProxy _obj uriScheme proxy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - uri_scheme' <- textToCString uri_scheme + uriScheme' <- textToCString uriScheme proxy' <- textToCString proxy - g_simple_proxy_resolver_set_uri_proxy _obj' uri_scheme' proxy' + g_simple_proxy_resolver_set_uri_proxy _obj' uriScheme' proxy' touchManagedPtr _obj - freeMem uri_scheme' + 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 {argName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ProxyResolver" -- throws : False -- Skip return : False @@ -244,25 +296,25 @@ simpleProxyResolverNew :: (MonadIO m) => - Maybe (T.Text) -> -- default_proxy - Maybe (T.Text) -> -- ignore_hosts - m ProxyResolver -simpleProxyResolverNew default_proxy ignore_hosts = liftIO $ do - maybeDefault_proxy <- case default_proxy of + Maybe (T.Text) -- defaultProxy + -> Maybe (T.Text) -- ignoreHosts + -> m ProxyResolver -- result +simpleProxyResolverNew defaultProxy ignoreHosts = liftIO $ do + maybeDefaultProxy <- case defaultProxy of Nothing -> return nullPtr - Just jDefault_proxy -> do - jDefault_proxy' <- textToCString jDefault_proxy - return jDefault_proxy' - maybeIgnore_hosts <- case ignore_hosts of + Just jDefaultProxy -> do + jDefaultProxy' <- textToCString jDefaultProxy + return jDefaultProxy' + maybeIgnoreHosts <- case ignoreHosts of Nothing -> return nullPtr - Just jIgnore_hosts -> do - jIgnore_hosts' <- textToCString jIgnore_hosts - return jIgnore_hosts' - result <- g_simple_proxy_resolver_new maybeDefault_proxy maybeIgnore_hosts + 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 maybeDefault_proxy - freeMem maybeIgnore_hosts + freeMem maybeDefaultProxy + freeMem maybeIgnoreHosts return result' diff --git a/GI/Gio/Objects/SimpleProxyResolver.hs-boot b/GI/Gio/Objects/SimpleProxyResolver.hs-boot --- a/GI/Gio/Objects/SimpleProxyResolver.hs-boot +++ b/GI/Gio/Objects/SimpleProxyResolver.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/Socket.hs +++ b/GI/Gio/Objects/Socket.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,126 +18,157 @@ -- * 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 , @@ -149,82 +181,102 @@ -- ** 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 , @@ -358,6 +410,91 @@ 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] @@ -377,7 +514,7 @@ type AttrSetTypeConstraint SocketBlockingPropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketBlockingPropertyInfo = SocketK type AttrGetType SocketBlockingPropertyInfo = Bool - type AttrLabel SocketBlockingPropertyInfo = "Socket::blocking" + type AttrLabel SocketBlockingPropertyInfo = "blocking" attrGet _ = getSocketBlocking attrSet _ = setSocketBlocking attrConstruct _ = constructSocketBlocking @@ -401,7 +538,7 @@ type AttrSetTypeConstraint SocketBroadcastPropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketBroadcastPropertyInfo = SocketK type AttrGetType SocketBroadcastPropertyInfo = Bool - type AttrLabel SocketBroadcastPropertyInfo = "Socket::broadcast" + type AttrLabel SocketBroadcastPropertyInfo = "broadcast" attrGet _ = getSocketBroadcast attrSet _ = setSocketBroadcast attrConstruct _ = constructSocketBroadcast @@ -422,7 +559,7 @@ type AttrSetTypeConstraint SocketFamilyPropertyInfo = (~) SocketFamily type AttrBaseTypeConstraint SocketFamilyPropertyInfo = SocketK type AttrGetType SocketFamilyPropertyInfo = SocketFamily - type AttrLabel SocketFamilyPropertyInfo = "Socket::family" + type AttrLabel SocketFamilyPropertyInfo = "family" attrGet _ = getSocketFamily attrSet _ = undefined attrConstruct _ = constructSocketFamily @@ -443,7 +580,7 @@ type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK type AttrGetType SocketFdPropertyInfo = Int32 - type AttrLabel SocketFdPropertyInfo = "Socket::fd" + type AttrLabel SocketFdPropertyInfo = "fd" attrGet _ = getSocketFd attrSet _ = undefined attrConstruct _ = constructSocketFd @@ -467,7 +604,7 @@ type AttrSetTypeConstraint SocketKeepalivePropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketKeepalivePropertyInfo = SocketK type AttrGetType SocketKeepalivePropertyInfo = Bool - type AttrLabel SocketKeepalivePropertyInfo = "Socket::keepalive" + type AttrLabel SocketKeepalivePropertyInfo = "keepalive" attrGet _ = getSocketKeepalive attrSet _ = setSocketKeepalive attrConstruct _ = constructSocketKeepalive @@ -491,7 +628,7 @@ type AttrSetTypeConstraint SocketListenBacklogPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SocketListenBacklogPropertyInfo = SocketK type AttrGetType SocketListenBacklogPropertyInfo = Int32 - type AttrLabel SocketListenBacklogPropertyInfo = "Socket::listen-backlog" + type AttrLabel SocketListenBacklogPropertyInfo = "listen-backlog" attrGet _ = getSocketListenBacklog attrSet _ = setSocketListenBacklog attrConstruct _ = constructSocketListenBacklog @@ -509,7 +646,7 @@ type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = (~) () type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK type AttrGetType SocketLocalAddressPropertyInfo = SocketAddress - type AttrLabel SocketLocalAddressPropertyInfo = "Socket::local-address" + type AttrLabel SocketLocalAddressPropertyInfo = "local-address" attrGet _ = getSocketLocalAddress attrSet _ = undefined attrConstruct _ = undefined @@ -533,7 +670,7 @@ type AttrSetTypeConstraint SocketMulticastLoopbackPropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketMulticastLoopbackPropertyInfo = SocketK type AttrGetType SocketMulticastLoopbackPropertyInfo = Bool - type AttrLabel SocketMulticastLoopbackPropertyInfo = "Socket::multicast-loopback" + type AttrLabel SocketMulticastLoopbackPropertyInfo = "multicast-loopback" attrGet _ = getSocketMulticastLoopback attrSet _ = setSocketMulticastLoopback attrConstruct _ = constructSocketMulticastLoopback @@ -557,7 +694,7 @@ type AttrSetTypeConstraint SocketMulticastTtlPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SocketMulticastTtlPropertyInfo = SocketK type AttrGetType SocketMulticastTtlPropertyInfo = Word32 - type AttrLabel SocketMulticastTtlPropertyInfo = "Socket::multicast-ttl" + type AttrLabel SocketMulticastTtlPropertyInfo = "multicast-ttl" attrGet _ = getSocketMulticastTtl attrSet _ = setSocketMulticastTtl attrConstruct _ = constructSocketMulticastTtl @@ -578,7 +715,7 @@ type AttrSetTypeConstraint SocketProtocolPropertyInfo = (~) SocketProtocol type AttrBaseTypeConstraint SocketProtocolPropertyInfo = SocketK type AttrGetType SocketProtocolPropertyInfo = SocketProtocol - type AttrLabel SocketProtocolPropertyInfo = "Socket::protocol" + type AttrLabel SocketProtocolPropertyInfo = "protocol" attrGet _ = getSocketProtocol attrSet _ = undefined attrConstruct _ = constructSocketProtocol @@ -596,7 +733,7 @@ type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = (~) () type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK type AttrGetType SocketRemoteAddressPropertyInfo = SocketAddress - type AttrLabel SocketRemoteAddressPropertyInfo = "Socket::remote-address" + type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address" attrGet _ = getSocketRemoteAddress attrSet _ = undefined attrConstruct _ = undefined @@ -620,7 +757,7 @@ type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK type AttrGetType SocketTimeoutPropertyInfo = Word32 - type AttrLabel SocketTimeoutPropertyInfo = "Socket::timeout" + type AttrLabel SocketTimeoutPropertyInfo = "timeout" attrGet _ = getSocketTimeout attrSet _ = setSocketTimeout attrConstruct _ = constructSocketTimeout @@ -644,7 +781,7 @@ type AttrSetTypeConstraint SocketTtlPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SocketTtlPropertyInfo = SocketK type AttrGetType SocketTtlPropertyInfo = Word32 - type AttrLabel SocketTtlPropertyInfo = "Socket::ttl" + type AttrLabel SocketTtlPropertyInfo = "ttl" attrGet _ = getSocketTtl attrSet _ = setSocketTtl attrConstruct _ = constructSocketTtl @@ -665,22 +802,21 @@ type AttrSetTypeConstraint SocketTypePropertyInfo = (~) SocketType type AttrBaseTypeConstraint SocketTypePropertyInfo = SocketK type AttrGetType SocketTypePropertyInfo = SocketType - type AttrLabel SocketTypePropertyInfo = "Socket::type" + type AttrLabel SocketTypePropertyInfo = "type" attrGet _ = getSocketType attrSet _ = undefined attrConstruct _ = constructSocketType type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("blocking", SocketBlockingPropertyInfo), '("broadcast", SocketBroadcastPropertyInfo), '("family", SocketFamilyPropertyInfo), '("fd", SocketFdPropertyInfo), '("keepalive", SocketKeepalivePropertyInfo), '("listen-backlog", SocketListenBacklogPropertyInfo), '("local-address", SocketLocalAddressPropertyInfo), '("multicast-loopback", SocketMulticastLoopbackPropertyInfo), '("multicast-ttl", SocketMulticastTtlPropertyInfo), '("protocol", SocketProtocolPropertyInfo), '("remote-address", SocketRemoteAddressPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("ttl", SocketTtlPropertyInfo), '("type", SocketTypePropertyInfo)] :: [(Symbol, *)]) +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, *)]) type instance SignalList Socket = SocketSignalList -type SocketSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Socket::new -- method type : Constructor --- Args : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : True -- Skip return : False @@ -695,10 +831,10 @@ socketNew :: (MonadIO m) => - SocketFamily -> -- family - SocketType -> -- type - SocketProtocol -> -- protocol - m Socket + 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_ @@ -714,9 +850,8 @@ -- method Socket::new_from_fd -- method type : Constructor --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : True -- Skip return : False @@ -729,8 +864,8 @@ socketNewFromFd :: (MonadIO m) => - Int32 -> -- fd - m Socket + Int32 -- fd + -> m Socket -- result socketNewFromFd fd = liftIO $ do onException (do result <- propagateGError $ g_socket_new_from_fd fd @@ -743,9 +878,8 @@ -- method Socket::accept -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : True -- Skip return : False @@ -759,9 +893,9 @@ socketAccept :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Socket + a -- _obj + -> Maybe (b) -- cancellable + -> m Socket -- result socketAccept _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -780,11 +914,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_reuse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_reuse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -799,16 +936,16 @@ socketBind :: (MonadIO m, SocketK a, SocketAddressK b) => - a -> -- _obj - b -> -- address - Bool -> -- allow_reuse - m () -socketBind _obj address allow_reuse = liftIO $ do + a -- _obj + -> b -- address + -> Bool -- allowReuse + -> m () -- result +socketBind _obj address allowReuse = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let address' = unsafeManagedPtrCastPtr address - let allow_reuse' = (fromIntegral . fromEnum) allow_reuse + let allowReuse' = (fromIntegral . fromEnum) allowReuse onException (do - _ <- propagateGError $ g_socket_bind _obj' address' allow_reuse' + _ <- propagateGError $ g_socket_bind _obj' address' allowReuse' touchManagedPtr _obj touchManagedPtr address return () @@ -816,11 +953,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -833,8 +973,8 @@ socketCheckConnectResult :: (MonadIO m, SocketK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result socketCheckConnectResult _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -845,11 +985,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -862,8 +1005,8 @@ socketClose :: (MonadIO m, SocketK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result socketClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -874,11 +1017,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "IOCondition" -- throws : False -- Skip return : False @@ -891,9 +1037,9 @@ socketConditionCheck :: (MonadIO m, SocketK a) => - a -> -- _obj - [GLib.IOCondition] -> -- condition - m [GLib.IOCondition] + a -- _obj + -> [GLib.IOCondition] -- condition + -> m [GLib.IOCondition] -- result socketConditionCheck _obj condition = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let condition' = gflagsToWord condition @@ -902,11 +1048,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -922,11 +1071,11 @@ socketConditionTimedWait :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - [GLib.IOCondition] -> -- condition - Int64 -> -- timeout - Maybe (b) -> -- cancellable - m () + 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 @@ -944,11 +1093,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -963,10 +1115,10 @@ socketConditionWait :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - [GLib.IOCondition] -> -- condition - Maybe (b) -> -- cancellable - m () + a -- _obj + -> [GLib.IOCondition] -- condition + -> Maybe (b) -- cancellable + -> m () -- result socketConditionWait _obj condition cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let condition' = gflagsToWord condition @@ -984,11 +1136,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1003,10 +1158,10 @@ socketConnect :: (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => - a -> -- _obj - b -> -- address - Maybe (c) -> -- cancellable - m () + a -- _obj + -> b -- address + -> Maybe (c) -- cancellable + -> m () -- result socketConnect _obj address cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let address' = unsafeManagedPtrCastPtr address @@ -1025,11 +1180,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : False -- Skip return : False @@ -1041,8 +1199,8 @@ socketConnectionFactoryCreateConnection :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketConnection + a -- _obj + -> m SocketConnection -- result socketConnectionFactoryCreateConnection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_connection_factory_create_connection _obj' @@ -1051,11 +1209,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -1067,19 +1228,22 @@ socketGetAvailableBytes :: (MonadIO m, SocketK a) => - a -> -- _obj - m Int64 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1091,8 +1255,8 @@ socketGetBlocking :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketGetBlocking _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_blocking _obj' @@ -1100,11 +1264,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1116,8 +1283,8 @@ socketGetBroadcast :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketGetBroadcast _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_broadcast _obj' @@ -1125,11 +1292,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Credentials" -- throws : True -- Skip return : False @@ -1142,8 +1312,8 @@ socketGetCredentials :: (MonadIO m, SocketK a) => - a -> -- _obj - m Credentials + a -- _obj + -> m Credentials -- result socketGetCredentials _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1156,11 +1326,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketFamily" -- throws : False -- Skip return : False @@ -1172,8 +1345,8 @@ socketGetFamily :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketFamily + a -- _obj + -> m SocketFamily -- result socketGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_family _obj' @@ -1181,11 +1354,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1197,19 +1373,22 @@ socketGetFd :: (MonadIO m, SocketK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1221,8 +1400,8 @@ socketGetKeepalive :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketGetKeepalive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_keepalive _obj' @@ -1230,11 +1409,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -1246,19 +1428,22 @@ socketGetListenBacklog :: (MonadIO m, SocketK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -1271,8 +1456,8 @@ socketGetLocalAddress :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketAddress + a -- _obj + -> m SocketAddress -- result socketGetLocalAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1285,11 +1470,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1301,8 +1489,8 @@ socketGetMulticastLoopback :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketGetMulticastLoopback _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_multicast_loopback _obj' @@ -1310,11 +1498,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1326,19 +1517,22 @@ socketGetMulticastTtl :: (MonadIO m, SocketK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "optname", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "optname", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1354,10 +1548,10 @@ socketGetOption :: (MonadIO m, SocketK a) => - a -> -- _obj - Int32 -> -- level - Int32 -> -- optname - m (Int32) + a -- _obj + -> Int32 -- level + -> Int32 -- optname + -> m (Int32) -- result socketGetOption _obj level optname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value <- allocMem :: IO (Ptr Int32) @@ -1371,11 +1565,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketProtocol" -- throws : False -- Skip return : False @@ -1387,8 +1584,8 @@ socketGetProtocol :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketProtocol + a -- _obj + -> m SocketProtocol -- result socketGetProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_protocol _obj' @@ -1396,11 +1593,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -1413,8 +1613,8 @@ socketGetRemoteAddress :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketAddress + a -- _obj + -> m SocketAddress -- result socketGetRemoteAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1427,11 +1627,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketType" -- throws : False -- Skip return : False @@ -1443,8 +1646,8 @@ socketGetSocketType :: (MonadIO m, SocketK a) => - a -> -- _obj - m SocketType + a -- _obj + -> m SocketType -- result socketGetSocketType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_get_socket_type _obj' @@ -1452,11 +1655,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1468,19 +1674,22 @@ socketGetTimeout :: (MonadIO m, SocketK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1492,19 +1701,22 @@ socketGetTtl :: (MonadIO m, SocketK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1516,8 +1728,8 @@ socketIsClosed :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_is_closed _obj' @@ -1525,11 +1737,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1541,8 +1756,8 @@ socketIsConnected :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketIsConnected _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_is_connected _obj' @@ -1550,11 +1765,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1570,22 +1788,22 @@ socketJoinMulticastGroup :: (MonadIO m, SocketK a, InetAddressK b) => - a -> -- _obj - b -> -- group - Bool -> -- source_specific - Maybe (T.Text) -> -- iface - m () -socketJoinMulticastGroup _obj group source_specific iface = liftIO $ do + 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 source_specific' = (fromIntegral . fromEnum) source_specific + 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' source_specific' maybeIface + _ <- propagateGError $ g_socket_join_multicast_group _obj' group' sourceSpecific' maybeIface touchManagedPtr _obj touchManagedPtr group freeMem maybeIface @@ -1594,11 +1812,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1614,22 +1835,22 @@ socketLeaveMulticastGroup :: (MonadIO m, SocketK a, InetAddressK b) => - a -> -- _obj - b -> -- group - Bool -> -- source_specific - Maybe (T.Text) -> -- iface - m () -socketLeaveMulticastGroup _obj group source_specific iface = liftIO $ do + 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 source_specific' = (fromIntegral . fromEnum) source_specific + 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' source_specific' maybeIface + _ <- propagateGError $ g_socket_leave_multicast_group _obj' group' sourceSpecific' maybeIface touchManagedPtr _obj touchManagedPtr group freeMem maybeIface @@ -1638,11 +1859,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1655,8 +1879,8 @@ socketListen :: (MonadIO m, SocketK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result socketListen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -1667,11 +1891,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1687,10 +1914,10 @@ socketReceive :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -1710,11 +1937,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1731,10 +1961,10 @@ socketReceiveFrom :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m (Int64,SocketAddress) + 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 @@ -1759,11 +1989,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "InputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "InputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", 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 : [Arg {argCName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1783,17 +2016,17 @@ socketReceiveMessage :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - [InputVector] -> -- vectors - Maybe ([SocketControlMessage]) -> -- messages - Int32 -> -- flags - Maybe (b) -> -- cancellable - m (Int64,SocketAddress) + 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 num_messages = case messages of + let numMessages = case messages of Nothing -> 0 Just jMessages -> fromIntegral $ length jMessages - let num_vectors = fromIntegral $ length vectors + let numVectors = fromIntegral $ length vectors let _obj' = unsafeManagedPtrCastPtr _obj address <- allocMem :: IO (Ptr (Ptr SocketAddress)) let vectors' = map unsafeManagedPtrGetPtr vectors @@ -1810,7 +2043,7 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_socket_receive_message _obj' address vectors'' num_vectors maybeMessages num_messages flags maybeCancellable + result <- propagateGError $ g_socket_receive_message _obj' address vectors'' numVectors maybeMessages numMessages flags maybeCancellable address' <- peek address address'' <- (wrapObject SocketAddress) address' touchManagedPtr _obj @@ -1827,11 +2060,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1848,11 +2084,11 @@ socketReceiveWithBlocking :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Bool -> -- blocking - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -1873,11 +2109,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1893,10 +2132,10 @@ socketSend :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -1916,11 +2155,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "OutputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "OutputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", 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 : [Arg {argCName = "num_messages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -1940,18 +2182,18 @@ 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 + 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 num_messages = case messages of + let numMessages = case messages of Nothing -> 0 Just jMessages -> fromIntegral $ length jMessages - let num_vectors = fromIntegral $ length vectors + let numVectors = fromIntegral $ length vectors let _obj' = unsafeManagedPtrCastPtr _obj maybeAddress <- case address of Nothing -> return nullPtr @@ -1972,7 +2214,7 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_socket_send_message _obj' maybeAddress vectors'' num_vectors maybeMessages num_messages flags maybeCancellable + result <- propagateGError $ g_socket_send_message _obj' maybeAddress vectors'' numVectors maybeMessages numMessages flags maybeCancellable touchManagedPtr _obj whenJust address touchManagedPtr mapM_ touchManagedPtr vectors @@ -1986,11 +2228,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 2 (TInterface "Gio" "OutputMessage"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_messages", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "num_messages", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "messages", argType = TCArray False (-1) 2 (TInterface "Gio" "OutputMessage"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", 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 : [Arg {argCName = "num_messages", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -2007,13 +2252,13 @@ socketSendMessages :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - [OutputMessage] -> -- messages - Int32 -> -- flags - Maybe (b) -> -- cancellable - m Int32 + a -- _obj + -> [OutputMessage] -- messages + -> Int32 -- flags + -> Maybe (b) -- cancellable + -> m Int32 -- result socketSendMessages _obj messages flags cancellable = liftIO $ do - let num_messages = fromIntegral $ length messages + let numMessages = fromIntegral $ length messages let _obj' = unsafeManagedPtrCastPtr _obj let messages' = map unsafeManagedPtrGetPtr messages messages'' <- packBlockArray 40 messages' @@ -2023,7 +2268,7 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_socket_send_messages _obj' messages'' num_messages flags maybeCancellable + result <- propagateGError $ g_socket_send_messages _obj' messages'' numMessages flags maybeCancellable touchManagedPtr _obj mapM_ touchManagedPtr messages whenJust cancellable touchManagedPtr @@ -2033,11 +2278,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -2054,11 +2302,11 @@ socketSendTo :: (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => - a -> -- _obj - Maybe (b) -> -- address - ByteString -> -- buffer - Maybe (c) -> -- cancellable - m Int64 + 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 @@ -2084,11 +2332,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : TBasicType TInt64 -- throws : True -- Skip return : False @@ -2105,11 +2356,11 @@ socketSendWithBlocking :: (MonadIO m, SocketK a, CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Bool -> -- blocking - Maybe (b) -> -- cancellable - m Int64 + 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 @@ -2130,11 +2381,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2147,9 +2401,9 @@ socketSetBlocking :: (MonadIO m, SocketK a) => - a -> -- _obj - Bool -> -- blocking - m () + a -- _obj + -> Bool -- blocking + -> m () -- result socketSetBlocking _obj blocking = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let blocking' = (fromIntegral . fromEnum) blocking @@ -2157,11 +2411,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "broadcast", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "broadcast", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2174,9 +2431,9 @@ socketSetBroadcast :: (MonadIO m, SocketK a) => - a -> -- _obj - Bool -> -- broadcast - m () + a -- _obj + -> Bool -- broadcast + -> m () -- result socketSetBroadcast _obj broadcast = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let broadcast' = (fromIntegral . fromEnum) broadcast @@ -2184,11 +2441,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keepalive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keepalive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2201,9 +2461,9 @@ socketSetKeepalive :: (MonadIO m, SocketK a) => - a -> -- _obj - Bool -> -- keepalive - m () + a -- _obj + -> Bool -- keepalive + -> m () -- result socketSetKeepalive _obj keepalive = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let keepalive' = (fromIntegral . fromEnum) keepalive @@ -2211,11 +2471,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backlog", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backlog", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2228,20 +2491,23 @@ socketSetListenBacklog :: (MonadIO m, SocketK a) => - a -> -- _obj - Int32 -> -- backlog - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loopback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loopback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2254,9 +2520,9 @@ socketSetMulticastLoopback :: (MonadIO m, SocketK a) => - a -> -- _obj - Bool -> -- loopback - m () + a -- _obj + -> Bool -- loopback + -> m () -- result socketSetMulticastLoopback _obj loopback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let loopback' = (fromIntegral . fromEnum) loopback @@ -2264,11 +2530,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ttl", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ttl", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2281,20 +2550,23 @@ socketSetMulticastTtl :: (MonadIO m, SocketK a) => - a -> -- _obj - Word32 -> -- ttl - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "optname", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt32, 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}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "optname", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -2310,11 +2582,11 @@ socketSetOption :: (MonadIO m, SocketK a) => - a -> -- _obj - Int32 -> -- level - Int32 -> -- optname - Int32 -> -- value - m () + a -- _obj + -> Int32 -- level + -> Int32 -- optname + -> Int32 -- value + -> m () -- result socketSetOption _obj level optname value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -2325,11 +2597,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2342,20 +2617,23 @@ socketSetTimeout :: (MonadIO m, SocketK a) => - a -> -- _obj - Word32 -> -- timeout - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ttl", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ttl", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -2368,20 +2646,23 @@ socketSetTtl :: (MonadIO m, SocketK a) => - a -> -- _obj - Word32 -> -- ttl - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -2396,27 +2677,30 @@ socketShutdown :: (MonadIO m, SocketK a) => - a -> -- _obj - Bool -> -- shutdown_read - Bool -> -- shutdown_write - m () -socketShutdown _obj shutdown_read shutdown_write = liftIO $ do + a -- _obj + -> Bool -- shutdownRead + -> Bool -- shutdownWrite + -> m () -- result +socketShutdown _obj shutdownRead shutdownWrite = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let shutdown_read' = (fromIntegral . fromEnum) shutdown_read - let shutdown_write' = (fromIntegral . fromEnum) shutdown_write + let shutdownRead' = (fromIntegral . fromEnum) shutdownRead + let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite onException (do - _ <- propagateGError $ g_socket_shutdown _obj' shutdown_read' shutdown_write' + _ <- 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 {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -2428,13 +2712,17 @@ socketSpeaksIpv4 :: (MonadIO m, SocketK a) => - a -> -- _obj - m Bool + 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 --- a/GI/Gio/Objects/Socket.hs-boot +++ b/GI/Gio/Objects/Socket.hs-boot @@ -25,3 +25,54 @@ 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 --- a/GI/Gio/Objects/SocketAddress.hs +++ b/GI/Gio/Objects/SocketAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** socketAddressGetFamily + SocketAddressGetFamilyMethodInfo , socketAddressGetFamily , -- ** socketAddressGetNativeSize + SocketAddressGetNativeSizeMethodInfo , socketAddressGetNativeSize , @@ -29,6 +32,7 @@ -- ** socketAddressToNative + SocketAddressToNativeMethodInfo , socketAddressToNative , @@ -76,6 +80,44 @@ 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] @@ -89,7 +131,7 @@ type AttrSetTypeConstraint SocketAddressFamilyPropertyInfo = (~) () type AttrBaseTypeConstraint SocketAddressFamilyPropertyInfo = SocketAddressK type AttrGetType SocketAddressFamilyPropertyInfo = SocketFamily - type AttrLabel SocketAddressFamilyPropertyInfo = "SocketAddress::family" + type AttrLabel SocketAddressFamilyPropertyInfo = "family" attrGet _ = getSocketAddressFamily attrSet _ = undefined attrConstruct _ = undefined @@ -98,13 +140,12 @@ type SocketAddressAttributeList = ('[ '("family", SocketAddressFamilyPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SocketAddress = SocketAddressSignalList -type SocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketAddress::new_from_native -- method type : Constructor --- Args : [Arg {argName = "native", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "native", argType = TBasicType TVoid, 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 : [] --- hInArgs : [Arg {argName = "native", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : False -- Skip return : False @@ -117,9 +158,9 @@ socketAddressNewFromNative :: (MonadIO m) => - Ptr () -> -- native - Word64 -> -- len - m SocketAddress + 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 @@ -128,9 +169,8 @@ -- method SocketAddress::get_family -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketFamily" -- throws : False -- Skip return : False @@ -142,8 +182,8 @@ socketAddressGetFamily :: (MonadIO m, SocketAddressK a) => - a -> -- _obj - m SocketFamily + a -- _obj + -> m SocketFamily -- result socketAddressGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_address_get_family _obj' @@ -151,11 +191,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False @@ -167,19 +210,22 @@ socketAddressGetNativeSize :: (MonadIO m, SocketAddressK a) => - a -> -- _obj - m Int64 + 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 {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destlen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destlen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -194,10 +240,10 @@ socketAddressToNative :: (MonadIO m, SocketAddressK a) => - a -> -- _obj - Ptr () -> -- dest - Word64 -> -- destlen - m () + a -- _obj + -> Ptr () -- dest + -> Word64 -- destlen + -> m () -- result socketAddressToNative _obj dest destlen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -207,5 +253,9 @@ ) (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 --- a/GI/Gio/Objects/SocketAddress.hs-boot +++ b/GI/Gio/Objects/SocketAddress.hs-boot @@ -12,3 +12,6 @@ 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 --- a/GI/Gio/Objects/SocketAddressEnumerator.hs +++ b/GI/Gio/Objects/SocketAddressEnumerator.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** socketAddressEnumeratorNext + SocketAddressEnumeratorNextMethodInfo , socketAddressEnumeratorNext , -- ** socketAddressEnumeratorNextAsync + SocketAddressEnumeratorNextAsyncMethodInfo, socketAddressEnumeratorNextAsync , -- ** socketAddressEnumeratorNextFinish + SocketAddressEnumeratorNextFinishMethodInfo, socketAddressEnumeratorNextFinish , @@ -64,17 +68,52 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketAddressEnumerator::next -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -88,9 +127,9 @@ socketAddressEnumeratorNext :: (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m SocketAddress + a -- _obj + -> Maybe (b) -- cancellable + -> m SocketAddress -- result socketAddressEnumeratorNext _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -109,11 +148,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -128,10 +170,10 @@ socketAddressEnumeratorNextAsync :: (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result socketAddressEnumeratorNextAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -146,17 +188,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_address_enumerator_next_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -170,9 +215,9 @@ socketAddressEnumeratorNextFinish :: (MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m SocketAddress + a -- _obj + -> b -- result_ + -> m SocketAddress -- result socketAddressEnumeratorNextFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -186,5 +231,9 @@ ) (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 --- a/GI/Gio/Objects/SocketAddressEnumerator.hs-boot +++ b/GI/Gio/Objects/SocketAddressEnumerator.hs-boot @@ -11,3 +11,6 @@ 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 --- a/GI/Gio/Objects/SocketClient.hs +++ b/GI/Gio/Objects/SocketClient.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,90 +18,112 @@ -- * 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 , @@ -109,38 +132,47 @@ -- ** 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 , @@ -261,6 +293,70 @@ 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 -> @@ -335,7 +431,7 @@ type AttrSetTypeConstraint SocketClientEnableProxyPropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketClientEnableProxyPropertyInfo = SocketClientK type AttrGetType SocketClientEnableProxyPropertyInfo = Bool - type AttrLabel SocketClientEnableProxyPropertyInfo = "SocketClient::enable-proxy" + type AttrLabel SocketClientEnableProxyPropertyInfo = "enable-proxy" attrGet _ = getSocketClientEnableProxy attrSet _ = setSocketClientEnableProxy attrConstruct _ = constructSocketClientEnableProxy @@ -359,7 +455,7 @@ type AttrSetTypeConstraint SocketClientFamilyPropertyInfo = (~) SocketFamily type AttrBaseTypeConstraint SocketClientFamilyPropertyInfo = SocketClientK type AttrGetType SocketClientFamilyPropertyInfo = SocketFamily - type AttrLabel SocketClientFamilyPropertyInfo = "SocketClient::family" + type AttrLabel SocketClientFamilyPropertyInfo = "family" attrGet _ = getSocketClientFamily attrSet _ = setSocketClientFamily attrConstruct _ = constructSocketClientFamily @@ -383,7 +479,7 @@ type AttrSetTypeConstraint SocketClientLocalAddressPropertyInfo = SocketAddressK type AttrBaseTypeConstraint SocketClientLocalAddressPropertyInfo = SocketClientK type AttrGetType SocketClientLocalAddressPropertyInfo = SocketAddress - type AttrLabel SocketClientLocalAddressPropertyInfo = "SocketClient::local-address" + type AttrLabel SocketClientLocalAddressPropertyInfo = "local-address" attrGet _ = getSocketClientLocalAddress attrSet _ = setSocketClientLocalAddress attrConstruct _ = constructSocketClientLocalAddress @@ -407,7 +503,7 @@ type AttrSetTypeConstraint SocketClientProtocolPropertyInfo = (~) SocketProtocol type AttrBaseTypeConstraint SocketClientProtocolPropertyInfo = SocketClientK type AttrGetType SocketClientProtocolPropertyInfo = SocketProtocol - type AttrLabel SocketClientProtocolPropertyInfo = "SocketClient::protocol" + type AttrLabel SocketClientProtocolPropertyInfo = "protocol" attrGet _ = getSocketClientProtocol attrSet _ = setSocketClientProtocol attrConstruct _ = constructSocketClientProtocol @@ -431,7 +527,7 @@ type AttrSetTypeConstraint SocketClientProxyResolverPropertyInfo = ProxyResolverK type AttrBaseTypeConstraint SocketClientProxyResolverPropertyInfo = SocketClientK type AttrGetType SocketClientProxyResolverPropertyInfo = ProxyResolver - type AttrLabel SocketClientProxyResolverPropertyInfo = "SocketClient::proxy-resolver" + type AttrLabel SocketClientProxyResolverPropertyInfo = "proxy-resolver" attrGet _ = getSocketClientProxyResolver attrSet _ = setSocketClientProxyResolver attrConstruct _ = constructSocketClientProxyResolver @@ -455,7 +551,7 @@ type AttrSetTypeConstraint SocketClientTimeoutPropertyInfo = (~) Word32 type AttrBaseTypeConstraint SocketClientTimeoutPropertyInfo = SocketClientK type AttrGetType SocketClientTimeoutPropertyInfo = Word32 - type AttrLabel SocketClientTimeoutPropertyInfo = "SocketClient::timeout" + type AttrLabel SocketClientTimeoutPropertyInfo = "timeout" attrGet _ = getSocketClientTimeout attrSet _ = setSocketClientTimeout attrConstruct _ = constructSocketClientTimeout @@ -479,7 +575,7 @@ type AttrSetTypeConstraint SocketClientTlsPropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketClientTlsPropertyInfo = SocketClientK type AttrGetType SocketClientTlsPropertyInfo = Bool - type AttrLabel SocketClientTlsPropertyInfo = "SocketClient::tls" + type AttrLabel SocketClientTlsPropertyInfo = "tls" attrGet _ = getSocketClientTls attrSet _ = setSocketClientTls attrConstruct _ = constructSocketClientTls @@ -503,7 +599,7 @@ type AttrSetTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = (~) [TlsCertificateFlags] type AttrBaseTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = SocketClientK type AttrGetType SocketClientTlsValidationFlagsPropertyInfo = [TlsCertificateFlags] - type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "SocketClient::tls-validation-flags" + type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "tls-validation-flags" attrGet _ = getSocketClientTlsValidationFlags attrSet _ = setSocketClientTlsValidationFlags attrConstruct _ = constructSocketClientTlsValidationFlags @@ -527,13 +623,13 @@ type AttrSetTypeConstraint SocketClientTypePropertyInfo = (~) SocketType type AttrBaseTypeConstraint SocketClientTypePropertyInfo = SocketClientK type AttrGetType SocketClientTypePropertyInfo = SocketType - type AttrLabel SocketClientTypePropertyInfo = "SocketClient::type" + type AttrLabel SocketClientTypePropertyInfo = "type" attrGet _ = getSocketClientType attrSet _ = setSocketClientType attrConstruct _ = constructSocketClientType type instance AttributeList SocketClient = SocketClientAttributeList -type SocketClientAttributeList = ('[ '("enable-proxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("local-address", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxy-resolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tls-validation-flags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)]) +type SocketClientAttributeList = ('[ '("enableProxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("localAddress", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxyResolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tlsValidationFlags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)]) data SocketClientEventSignalInfo instance SignalInfo SocketClientEventSignalInfo where @@ -541,13 +637,12 @@ connectSignal _ = connectSocketClientEvent type instance SignalList SocketClient = SocketClientSignalList -type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketClient::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "SocketClient" -- throws : False -- Skip return : False @@ -558,7 +653,7 @@ socketClientNew :: (MonadIO m) => - m SocketClient + m SocketClient -- result socketClientNew = liftIO $ do result <- g_socket_client_new checkUnexpectedReturnNULL "g_socket_client_new" result @@ -567,9 +662,8 @@ -- method SocketClient::add_application_proxy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -582,9 +676,9 @@ socketClientAddApplicationProxy :: (MonadIO m, SocketClientK a) => - a -> -- _obj - T.Text -> -- protocol - m () + a -- _obj + -> T.Text -- protocol + -> m () -- result socketClientAddApplicationProxy _obj protocol = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj protocol' <- textToCString protocol @@ -593,11 +687,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -612,10 +709,10 @@ socketClientConnect :: (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => - a -> -- _obj - b -> -- connectable - Maybe (c) -> -- cancellable - m SocketConnection + a -- _obj + -> b -- connectable + -> Maybe (c) -- cancellable + -> m SocketConnection -- result socketClientConnect _obj connectable cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let connectable' = unsafeManagedPtrCastPtr connectable @@ -636,11 +733,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -656,11 +756,11 @@ socketClientConnectAsync :: (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => - a -> -- _obj - b -> -- connectable - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -676,18 +776,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_client_connect_async _obj' connectable' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -701,9 +804,9 @@ socketClientConnectFinish :: (MonadIO m, SocketClientK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m SocketConnection + a -- _obj + -> b -- result_ + -> m SocketConnection -- result socketClientConnectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -718,11 +821,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -738,36 +844,39 @@ socketClientConnectToHost :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- host_and_port - Word16 -> -- default_port - Maybe (b) -> -- cancellable - m SocketConnection -socketClientConnectToHost _obj host_and_port default_port cancellable = liftIO $ do + a -- _obj + -> T.Text -- hostAndPort + -> Word16 -- defaultPort + -> Maybe (b) -- cancellable + -> m SocketConnection -- result +socketClientConnectToHost _obj hostAndPort defaultPort cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - host_and_port' <- textToCString host_and_port + 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' host_and_port' default_port maybeCancellable + 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 host_and_port' + freeMem hostAndPort' return result' ) (do - freeMem host_and_port' + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -784,15 +893,15 @@ socketClientConnectToHostAsync :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- host_and_port - Word16 -> -- default_port - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -socketClientConnectToHostAsync _obj host_and_port default_port cancellable callback = liftIO $ do + 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 - host_and_port' <- textToCString host_and_port + hostAndPort' <- textToCString hostAndPort maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -805,18 +914,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_client_connect_to_host_async _obj' host_and_port' default_port maybeCancellable maybeCallback user_data + let userData = nullPtr + g_socket_client_connect_to_host_async _obj' hostAndPort' defaultPort maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem host_and_port' + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -830,9 +942,9 @@ socketClientConnectToHostFinish :: (MonadIO m, SocketClientK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m SocketConnection + a -- _obj + -> b -- result_ + -> m SocketConnection -- result socketClientConnectToHostFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -847,11 +959,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -867,11 +982,11 @@ socketClientConnectToService :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- domain - T.Text -> -- service - Maybe (b) -> -- cancellable - m SocketConnection + 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 @@ -895,11 +1010,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -916,12 +1034,12 @@ socketClientConnectToServiceAsync :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- domain - T.Text -> -- service - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -938,19 +1056,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_client_connect_to_service_async _obj' domain' service' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -964,9 +1085,9 @@ socketClientConnectToServiceFinish :: (MonadIO m, SocketClientK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m SocketConnection + a -- _obj + -> b -- result_ + -> m SocketConnection -- result socketClientConnectToServiceFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -981,11 +1102,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -1001,12 +1125,12 @@ socketClientConnectToUri :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- uri - Word16 -> -- default_port - Maybe (b) -> -- cancellable - m SocketConnection -socketClientConnectToUri _obj uri default_port cancellable = liftIO $ do + 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 @@ -1015,7 +1139,7 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_socket_client_connect_to_uri _obj' uri' default_port maybeCancellable + 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 @@ -1026,11 +1150,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1047,13 +1174,13 @@ socketClientConnectToUriAsync :: (MonadIO m, SocketClientK a, CancellableK b) => - a -> -- _obj - T.Text -> -- uri - Word16 -> -- default_port - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -socketClientConnectToUriAsync _obj uri default_port cancellable callback = liftIO $ do + 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 @@ -1068,18 +1195,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_client_connect_to_uri_async _obj' uri' default_port maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -1093,9 +1223,9 @@ socketClientConnectToUriFinish :: (MonadIO m, SocketClientK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m SocketConnection + a -- _obj + -> b -- result_ + -> m SocketConnection -- result socketClientConnectToUriFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1110,11 +1240,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1126,8 +1259,8 @@ socketClientGetEnableProxy :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketClientGetEnableProxy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_enable_proxy _obj' @@ -1135,11 +1268,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketFamily" -- throws : False -- Skip return : False @@ -1151,8 +1287,8 @@ socketClientGetFamily :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m SocketFamily + a -- _obj + -> m SocketFamily -- result socketClientGetFamily _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_family _obj' @@ -1160,11 +1296,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : False -- Skip return : False @@ -1176,8 +1315,8 @@ socketClientGetLocalAddress :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m SocketAddress + a -- _obj + -> m SocketAddress -- result socketClientGetLocalAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_local_address _obj' @@ -1186,11 +1325,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketProtocol" -- throws : False -- Skip return : False @@ -1202,8 +1344,8 @@ socketClientGetProtocol :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m SocketProtocol + a -- _obj + -> m SocketProtocol -- result socketClientGetProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_protocol _obj' @@ -1211,11 +1353,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ProxyResolver" -- throws : False -- Skip return : False @@ -1227,8 +1372,8 @@ socketClientGetProxyResolver :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m ProxyResolver + a -- _obj + -> m ProxyResolver -- result socketClientGetProxyResolver _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_proxy_resolver _obj' @@ -1237,11 +1382,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketType" -- throws : False -- Skip return : False @@ -1253,8 +1401,8 @@ socketClientGetSocketType :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m SocketType + a -- _obj + -> m SocketType -- result socketClientGetSocketType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_socket_type _obj' @@ -1262,11 +1410,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False @@ -1278,19 +1429,22 @@ socketClientGetTimeout :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m Word32 + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -1302,8 +1456,8 @@ socketClientGetTls :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketClientGetTls _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_tls _obj' @@ -1311,11 +1465,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : False -- Skip return : False @@ -1327,8 +1484,8 @@ socketClientGetTlsValidationFlags :: (MonadIO m, SocketClientK a) => - a -> -- _obj - m [TlsCertificateFlags] + a -- _obj + -> m [TlsCertificateFlags] -- result socketClientGetTlsValidationFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_client_get_tls_validation_flags _obj' @@ -1336,11 +1493,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1353,9 +1513,9 @@ socketClientSetEnableProxy :: (MonadIO m, SocketClientK a) => - a -> -- _obj - Bool -> -- enable - m () + a -- _obj + -> Bool -- enable + -> m () -- result socketClientSetEnableProxy _obj enable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let enable' = (fromIntegral . fromEnum) enable @@ -1363,11 +1523,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1380,9 +1543,9 @@ socketClientSetFamily :: (MonadIO m, SocketClientK a) => - a -> -- _obj - SocketFamily -> -- family - m () + a -- _obj + -> SocketFamily -- family + -> m () -- result socketClientSetFamily _obj family = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let family' = (fromIntegral . fromEnum) family @@ -1390,11 +1553,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1407,9 +1573,9 @@ socketClientSetLocalAddress :: (MonadIO m, SocketClientK a, SocketAddressK b) => - a -> -- _obj - Maybe (b) -> -- address - m () + a -- _obj + -> Maybe (b) -- address + -> m () -- result socketClientSetLocalAddress _obj address = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeAddress <- case address of @@ -1422,11 +1588,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1439,9 +1608,9 @@ socketClientSetProtocol :: (MonadIO m, SocketClientK a) => - a -> -- _obj - SocketProtocol -> -- protocol - m () + a -- _obj + -> SocketProtocol -- protocol + -> m () -- result socketClientSetProtocol _obj protocol = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let protocol' = (fromIntegral . fromEnum) protocol @@ -1449,11 +1618,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_resolver", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_resolver", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1466,26 +1638,29 @@ socketClientSetProxyResolver :: (MonadIO m, SocketClientK a, ProxyResolverK b) => - a -> -- _obj - Maybe (b) -> -- proxy_resolver - m () -socketClientSetProxyResolver _obj proxy_resolver = liftIO $ do + a -- _obj + -> Maybe (b) -- proxyResolver + -> m () -- result +socketClientSetProxyResolver _obj proxyResolver = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeProxy_resolver <- case proxy_resolver of + maybeProxyResolver <- case proxyResolver of Nothing -> return nullPtr - Just jProxy_resolver -> do - let jProxy_resolver' = unsafeManagedPtrCastPtr jProxy_resolver - return jProxy_resolver' - g_socket_client_set_proxy_resolver _obj' maybeProxy_resolver + Just jProxyResolver -> do + let jProxyResolver' = unsafeManagedPtrCastPtr jProxyResolver + return jProxyResolver' + g_socket_client_set_proxy_resolver _obj' maybeProxyResolver touchManagedPtr _obj - whenJust proxy_resolver touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1498,9 +1673,9 @@ socketClientSetSocketType :: (MonadIO m, SocketClientK a) => - a -> -- _obj - SocketType -> -- type - m () + a -- _obj + -> SocketType -- type_ + -> m () -- result socketClientSetSocketType _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ @@ -1508,11 +1683,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1525,20 +1703,23 @@ socketClientSetTimeout :: (MonadIO m, SocketClientK a) => - a -> -- _obj - Word32 -> -- timeout - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tls", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tls", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1551,9 +1732,9 @@ socketClientSetTls :: (MonadIO m, SocketClientK a) => - a -> -- _obj - Bool -> -- tls - m () + a -- _obj + -> Bool -- tls + -> m () -- result socketClientSetTls _obj tls = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let tls' = (fromIntegral . fromEnum) tls @@ -1561,11 +1742,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -1578,14 +1762,18 @@ socketClientSetTlsValidationFlags :: (MonadIO m, SocketClientK a) => - a -> -- _obj - [TlsCertificateFlags] -> -- flags - m () + 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 --- a/GI/Gio/Objects/SocketClient.hs-boot +++ b/GI/Gio/Objects/SocketClient.hs-boot @@ -21,3 +21,34 @@ 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 --- a/GI/Gio/Objects/SocketConnection.hs +++ b/GI/Gio/Objects/SocketConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** socketConnectionConnect + SocketConnectionConnectMethodInfo , socketConnectionConnect , -- ** socketConnectionConnectAsync + SocketConnectionConnectAsyncMethodInfo , socketConnectionConnectAsync , -- ** socketConnectionConnectFinish + SocketConnectionConnectFinishMethodInfo , socketConnectionConnectFinish , @@ -37,18 +41,22 @@ -- ** socketConnectionGetLocalAddress + SocketConnectionGetLocalAddressMethodInfo, socketConnectionGetLocalAddress , -- ** socketConnectionGetRemoteAddress + SocketConnectionGetRemoteAddressMethodInfo, socketConnectionGetRemoteAddress , -- ** socketConnectionGetSocket + SocketConnectionGetSocketMethodInfo , socketConnectionGetSocket , -- ** socketConnectionIsConnected + SocketConnectionIsConnectedMethodInfo , socketConnectionIsConnected , @@ -97,6 +105,56 @@ 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] @@ -113,22 +171,21 @@ type AttrSetTypeConstraint SocketConnectionSocketPropertyInfo = SocketK type AttrBaseTypeConstraint SocketConnectionSocketPropertyInfo = SocketConnectionK type AttrGetType SocketConnectionSocketPropertyInfo = Socket - type AttrLabel SocketConnectionSocketPropertyInfo = "SocketConnection::socket" + type AttrLabel SocketConnectionSocketPropertyInfo = "socket" attrGet _ = getSocketConnectionSocket attrSet _ = undefined attrConstruct _ = constructSocketConnectionSocket type instance AttributeList SocketConnection = SocketConnectionAttributeList -type SocketConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) +type SocketConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SocketConnection = SocketConnectionSignalList -type SocketConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketConnection::connect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -143,10 +200,10 @@ socketConnectionConnect :: (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => - a -> -- _obj - b -> -- address - Maybe (c) -> -- cancellable - m () + a -- _obj + -> b -- address + -> Maybe (c) -- cancellable + -> m () -- result socketConnectionConnect _obj address cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let address' = unsafeManagedPtrCastPtr address @@ -165,11 +222,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -185,11 +245,11 @@ socketConnectionConnectAsync :: (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => - a -> -- _obj - b -> -- address - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -205,18 +265,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_connection_connect_async _obj' address' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -230,9 +293,9 @@ socketConnectionConnectFinish :: (MonadIO m, SocketConnectionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result socketConnectionConnectFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -245,11 +308,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -262,8 +328,8 @@ socketConnectionGetLocalAddress :: (MonadIO m, SocketConnectionK a) => - a -> -- _obj - m SocketAddress + a -- _obj + -> m SocketAddress -- result socketConnectionGetLocalAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -276,11 +342,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketAddress" -- throws : True -- Skip return : False @@ -293,8 +362,8 @@ socketConnectionGetRemoteAddress :: (MonadIO m, SocketConnectionK a) => - a -> -- _obj - m SocketAddress + a -- _obj + -> m SocketAddress -- result socketConnectionGetRemoteAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -307,11 +376,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : False -- Skip return : False @@ -323,8 +395,8 @@ socketConnectionGetSocket :: (MonadIO m, SocketConnectionK a) => - a -> -- _obj - m Socket + a -- _obj + -> m Socket -- result socketConnectionGetSocket _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_connection_get_socket _obj' @@ -333,11 +405,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -349,8 +424,8 @@ socketConnectionIsConnected :: (MonadIO m, SocketConnectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketConnectionIsConnected _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_connection_is_connected _obj' @@ -358,11 +433,14 @@ 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 {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -376,22 +454,21 @@ socketConnectionFactoryLookupType :: (MonadIO m) => - SocketFamily -> -- family - SocketType -> -- type - Int32 -> -- protocol_id - m GType -socketConnectionFactoryLookupType family type_ protocol_id = liftIO $ do + 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_' protocol_id + 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 {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -406,16 +483,16 @@ socketConnectionFactoryRegisterType :: (MonadIO m) => - GType -> -- g_type - SocketFamily -> -- family - SocketType -> -- type - Int32 -> -- protocol - m () -socketConnectionFactoryRegisterType g_type family type_ protocol = liftIO $ do - let g_type' = gtypeToCGType g_type + 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 g_type' family' type_' protocol + 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 --- a/GI/Gio/Objects/SocketConnection.hs-boot +++ b/GI/Gio/Objects/SocketConnection.hs-boot @@ -12,3 +12,10 @@ 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 --- a/GI/Gio/Objects/SocketControlMessage.hs +++ b/GI/Gio/Objects/SocketControlMessage.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,18 +22,22 @@ -- ** socketControlMessageGetLevel + SocketControlMessageGetLevelMethodInfo , socketControlMessageGetLevel , -- ** socketControlMessageGetMsgType + SocketControlMessageGetMsgTypeMethodInfo, socketControlMessageGetMsgType , -- ** socketControlMessageGetSize + SocketControlMessageGetSizeMethodInfo , socketControlMessageGetSize , -- ** socketControlMessageSerialize + SocketControlMessageSerializeMethodInfo , socketControlMessageSerialize , @@ -72,17 +77,53 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketControlMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketControlMessage::get_level -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -94,19 +135,22 @@ socketControlMessageGetLevel :: (MonadIO m, SocketControlMessageK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -118,19 +162,22 @@ socketControlMessageGetMsgType :: (MonadIO m, SocketControlMessageK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -142,19 +189,22 @@ socketControlMessageGetSize :: (MonadIO m, SocketControlMessageK a) => - a -> -- _obj - m Word64 + 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 {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -167,20 +217,23 @@ socketControlMessageSerialize :: (MonadIO m, SocketControlMessageK a) => - a -> -- _obj - Ptr () -> -- data - m () + 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 {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TInt32, 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 : TInterface "Gio" "SocketControlMessage" -- throws : False -- Skip return : False @@ -195,10 +248,10 @@ socketControlMessageDeserialize :: (MonadIO m) => - Int32 -> -- level - Int32 -> -- type - ByteString -> -- data - m SocketControlMessage + Int32 -- level + -> Int32 -- type_ + -> ByteString -- data_ + -> m SocketControlMessage -- result socketControlMessageDeserialize level type_ data_ = liftIO $ do let size = fromIntegral $ B.length data_ data_' <- packByteString data_ diff --git a/GI/Gio/Objects/SocketControlMessage.hs-boot b/GI/Gio/Objects/SocketControlMessage.hs-boot --- a/GI/Gio/Objects/SocketControlMessage.hs-boot +++ b/GI/Gio/Objects/SocketControlMessage.hs-boot @@ -11,3 +11,7 @@ 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 --- a/GI/Gio/Objects/SocketListener.hs +++ b/GI/Gio/Objects/SocketListener.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,46 +18,57 @@ -- * 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 , @@ -65,6 +77,7 @@ -- ** socketListenerSetBacklog + SocketListenerSetBacklogMethodInfo , socketListenerSetBacklog , @@ -129,6 +142,51 @@ 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 -> @@ -194,13 +252,13 @@ type AttrSetTypeConstraint SocketListenerListenBacklogPropertyInfo = (~) Int32 type AttrBaseTypeConstraint SocketListenerListenBacklogPropertyInfo = SocketListenerK type AttrGetType SocketListenerListenBacklogPropertyInfo = Int32 - type AttrLabel SocketListenerListenBacklogPropertyInfo = "SocketListener::listen-backlog" + type AttrLabel SocketListenerListenBacklogPropertyInfo = "listen-backlog" attrGet _ = getSocketListenerListenBacklog attrSet _ = setSocketListenerListenBacklog attrConstruct _ = constructSocketListenerListenBacklog type instance AttributeList SocketListener = SocketListenerAttributeList -type SocketListenerAttributeList = ('[ '("listen-backlog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) +type SocketListenerAttributeList = ('[ '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) data SocketListenerEventSignalInfo instance SignalInfo SocketListenerEventSignalInfo where @@ -208,13 +266,12 @@ connectSignal _ = connectSocketListenerEvent type instance SignalList SocketListener = SocketListenerSignalList -type SocketListenerSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketListenerSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketListener::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "SocketListener" -- throws : False -- Skip return : False @@ -225,7 +282,7 @@ socketListenerNew :: (MonadIO m) => - m SocketListener + m SocketListener -- result socketListenerNew = liftIO $ do result <- g_socket_listener_new checkUnexpectedReturnNULL "g_socket_listener_new" result @@ -234,9 +291,8 @@ -- method SocketListener::accept -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -251,36 +307,39 @@ socketListenerAccept :: (MonadIO m, SocketListenerK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m (SocketConnection,GObject.Object) + a -- _obj + -> Maybe (b) -- cancellable + -> m (SocketConnection,GObject.Object) -- result socketListenerAccept _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - source_object <- allocMem :: IO (Ptr (Ptr GObject.Object)) + 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' source_object maybeCancellable + result <- propagateGError $ g_socket_listener_accept _obj' sourceObject maybeCancellable checkUnexpectedReturnNULL "g_socket_listener_accept" result result' <- (wrapObject SocketConnection) result - source_object' <- peek source_object - source_object'' <- (newObject GObject.Object) source_object' + sourceObject' <- peek sourceObject + sourceObject'' <- (newObject GObject.Object) sourceObject' touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem source_object - return (result', source_object'') + freeMem sourceObject + return (result', sourceObject'') ) (do - freeMem source_object + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -295,10 +354,10 @@ socketListenerAcceptAsync :: (MonadIO m, SocketListenerK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result socketListenerAcceptAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -313,17 +372,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_listener_accept_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SocketConnection" -- throws : True -- Skip return : False @@ -338,32 +400,35 @@ socketListenerAcceptFinish :: (MonadIO m, SocketListenerK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (SocketConnection,GObject.Object) + a -- _obj + -> b -- result_ + -> m (SocketConnection,GObject.Object) -- result socketListenerAcceptFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - source_object <- allocMem :: IO (Ptr (Ptr GObject.Object)) + sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) onException (do - result <- propagateGError $ g_socket_listener_accept_finish _obj' result_' source_object + result <- propagateGError $ g_socket_listener_accept_finish _obj' result_' sourceObject checkUnexpectedReturnNULL "g_socket_listener_accept_finish" result result' <- (wrapObject SocketConnection) result - source_object' <- peek source_object - source_object'' <- (newObject GObject.Object) source_object' + sourceObject' <- peek sourceObject + sourceObject'' <- (newObject GObject.Object) sourceObject' touchManagedPtr _obj touchManagedPtr result_ - freeMem source_object - return (result', source_object'') + freeMem sourceObject + return (result', sourceObject'') ) (do - freeMem source_object + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : True -- Skip return : False @@ -378,36 +443,39 @@ socketListenerAcceptSocket :: (MonadIO m, SocketListenerK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m (Socket,GObject.Object) + a -- _obj + -> Maybe (b) -- cancellable + -> m (Socket,GObject.Object) -- result socketListenerAcceptSocket _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - source_object <- allocMem :: IO (Ptr (Ptr GObject.Object)) + 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' source_object maybeCancellable + result <- propagateGError $ g_socket_listener_accept_socket _obj' sourceObject maybeCancellable checkUnexpectedReturnNULL "g_socket_listener_accept_socket" result result' <- (wrapObject Socket) result - source_object' <- peek source_object - source_object'' <- (newObject GObject.Object) source_object' + sourceObject' <- peek sourceObject + sourceObject'' <- (newObject GObject.Object) sourceObject' touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem source_object - return (result', source_object'') + freeMem sourceObject + return (result', sourceObject'') ) (do - freeMem source_object + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -422,10 +490,10 @@ socketListenerAcceptSocketAsync :: (MonadIO m, SocketListenerK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result socketListenerAcceptSocketAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -440,17 +508,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_socket_listener_accept_socket_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Socket" -- throws : True -- Skip return : False @@ -465,32 +536,35 @@ socketListenerAcceptSocketFinish :: (MonadIO m, SocketListenerK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (Socket,GObject.Object) + a -- _obj + -> b -- result_ + -> m (Socket,GObject.Object) -- result socketListenerAcceptSocketFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - source_object <- allocMem :: IO (Ptr (Ptr GObject.Object)) + sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) onException (do - result <- propagateGError $ g_socket_listener_accept_socket_finish _obj' result_' source_object + result <- propagateGError $ g_socket_listener_accept_socket_finish _obj' result_' sourceObject checkUnexpectedReturnNULL "g_socket_listener_accept_socket_finish" result result' <- (wrapObject Socket) result - source_object' <- peek source_object - source_object'' <- (newObject GObject.Object) source_object' + sourceObject' <- peek sourceObject + sourceObject'' <- (newObject GObject.Object) sourceObject' touchManagedPtr _obj touchManagedPtr result_ - freeMem source_object - return (result', source_object'') + freeMem sourceObject + return (result', sourceObject'') ) (do - freeMem source_object + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "effective_address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -508,41 +582,44 @@ socketListenerAddAddress :: (MonadIO m, SocketListenerK a, SocketAddressK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- address - SocketType -> -- type - SocketProtocol -> -- protocol - Maybe (c) -> -- source_object - m (SocketAddress) -socketListenerAddAddress _obj address type_ protocol source_object = liftIO $ do + 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 - maybeSource_object <- case source_object of + maybeSourceObject <- case sourceObject of Nothing -> return nullPtr - Just jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' - effective_address <- allocMem :: IO (Ptr (Ptr SocketAddress)) + 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' maybeSource_object effective_address - effective_address' <- peek effective_address - effective_address'' <- (wrapObject SocketAddress) effective_address' + _ <- propagateGError $ g_socket_listener_add_address _obj' address' type_' protocol' maybeSourceObject effectiveAddress + effectiveAddress' <- peek effectiveAddress + effectiveAddress'' <- (wrapObject SocketAddress) effectiveAddress' touchManagedPtr _obj touchManagedPtr address - whenJust source_object touchManagedPtr - freeMem effective_address - return effective_address'' + whenJust sourceObject touchManagedPtr + freeMem effectiveAddress + return effectiveAddress'' ) (do - freeMem effective_address + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : True -- Skip return : False @@ -556,30 +633,33 @@ socketListenerAddAnyInetPort :: (MonadIO m, SocketListenerK a, GObject.ObjectK b) => - a -> -- _obj - Maybe (b) -> -- source_object - m Word16 -socketListenerAddAnyInetPort _obj source_object = liftIO $ do + a -- _obj + -> Maybe (b) -- sourceObject + -> m Word16 -- result +socketListenerAddAnyInetPort _obj sourceObject = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeSource_object <- case source_object of + maybeSourceObject <- case sourceObject of Nothing -> return nullPtr - Just jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' onException (do - result <- propagateGError $ g_socket_listener_add_any_inet_port _obj' maybeSource_object + result <- propagateGError $ g_socket_listener_add_any_inet_port _obj' maybeSourceObject touchManagedPtr _obj - whenJust source_object touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -594,31 +674,34 @@ socketListenerAddInetPort :: (MonadIO m, SocketListenerK a, GObject.ObjectK b) => - a -> -- _obj - Word16 -> -- port - Maybe (b) -> -- source_object - m () -socketListenerAddInetPort _obj port source_object = liftIO $ do + a -- _obj + -> Word16 -- port + -> Maybe (b) -- sourceObject + -> m () -- result +socketListenerAddInetPort _obj port sourceObject = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeSource_object <- case source_object of + maybeSourceObject <- case sourceObject of Nothing -> return nullPtr - Just jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' onException (do - _ <- propagateGError $ g_socket_listener_add_inet_port _obj' port maybeSource_object + _ <- propagateGError $ g_socket_listener_add_inet_port _obj' port maybeSourceObject touchManagedPtr _obj - whenJust source_object touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -633,33 +716,36 @@ socketListenerAddSocket :: (MonadIO m, SocketListenerK a, SocketK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- socket - Maybe (c) -> -- source_object - m () -socketListenerAddSocket _obj socket source_object = liftIO $ do + a -- _obj + -> b -- socket + -> Maybe (c) -- sourceObject + -> m () -- result +socketListenerAddSocket _obj socket sourceObject = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let socket' = unsafeManagedPtrCastPtr socket - maybeSource_object <- case source_object of + maybeSourceObject <- case sourceObject of Nothing -> return nullPtr - Just jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' onException (do - _ <- propagateGError $ g_socket_listener_add_socket _obj' socket' maybeSource_object + _ <- propagateGError $ g_socket_listener_add_socket _obj' socket' maybeSourceObject touchManagedPtr _obj touchManagedPtr socket - whenJust source_object touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -671,19 +757,22 @@ socketListenerClose :: (MonadIO m, SocketListenerK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "listen_backlog", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "listen_backlog", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -696,13 +785,17 @@ socketListenerSetBacklog :: (MonadIO m, SocketListenerK a) => - a -> -- _obj - Int32 -> -- listen_backlog - m () -socketListenerSetBacklog _obj listen_backlog = liftIO $ do + a -- _obj + -> Int32 -- listenBacklog + -> m () -- result +socketListenerSetBacklog _obj listenBacklog = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_listener_set_backlog _obj' listen_backlog + 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 --- a/GI/Gio/Objects/SocketListener.hs-boot +++ b/GI/Gio/Objects/SocketListener.hs-boot @@ -13,3 +13,15 @@ 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 --- a/GI/Gio/Objects/SocketService.hs +++ b/GI/Gio/Objects/SocketService.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** socketServiceIsActive + SocketServiceIsActiveMethodInfo , socketServiceIsActive , @@ -25,10 +27,12 @@ -- ** socketServiceStart + SocketServiceStartMethodInfo , socketServiceStart , -- ** socketServiceStop + SocketServiceStopMethodInfo , socketServiceStop , @@ -93,6 +97,54 @@ 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 -> @@ -123,15 +175,15 @@ Ptr GObject.Object -> Ptr () -> IO CInt -socketServiceIncomingCallbackWrapper _cb _ connection source_object _ = do +socketServiceIncomingCallbackWrapper _cb _ connection sourceObject _ = do connection' <- (newObject SocketConnection) connection - maybeSource_object <- - if source_object == nullPtr + maybeSourceObject <- + if sourceObject == nullPtr then return Nothing else do - source_object' <- (newObject GObject.Object) source_object - return $ Just source_object' - result <- _cb connection' maybeSource_object + sourceObject' <- (newObject GObject.Object) sourceObject + return $ Just sourceObject' + result <- _cb connection' maybeSourceObject let result' = (fromIntegral . fromEnum) result return result' @@ -165,13 +217,13 @@ type AttrSetTypeConstraint SocketServiceActivePropertyInfo = (~) Bool type AttrBaseTypeConstraint SocketServiceActivePropertyInfo = SocketServiceK type AttrGetType SocketServiceActivePropertyInfo = Bool - type AttrLabel SocketServiceActivePropertyInfo = "SocketService::active" + type AttrLabel SocketServiceActivePropertyInfo = "active" attrGet _ = getSocketServiceActive attrSet _ = setSocketServiceActive attrConstruct _ = constructSocketServiceActive type instance AttributeList SocketService = SocketServiceAttributeList -type SocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listen-backlog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) +type SocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) data SocketServiceIncomingSignalInfo instance SignalInfo SocketServiceIncomingSignalInfo where @@ -179,13 +231,12 @@ connectSignal _ = connectSocketServiceIncoming type instance SignalList SocketService = SocketServiceSignalList -type SocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SocketService::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "SocketService" -- throws : False -- Skip return : False @@ -196,7 +247,7 @@ socketServiceNew :: (MonadIO m) => - m SocketService + m SocketService -- result socketServiceNew = liftIO $ do result <- g_socket_service_new checkUnexpectedReturnNULL "g_socket_service_new" result @@ -205,9 +256,8 @@ -- method SocketService::is_active -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -219,8 +269,8 @@ socketServiceIsActive :: (MonadIO m, SocketServiceK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result socketServiceIsActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_socket_service_is_active _obj' @@ -228,11 +278,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -244,19 +297,22 @@ socketServiceStart :: (MonadIO m, SocketServiceK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -268,12 +324,16 @@ socketServiceStop :: (MonadIO m, SocketServiceK a) => - a -> -- _obj - m () + 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 --- a/GI/Gio/Objects/SocketService.hs-boot +++ b/GI/Gio/Objects/SocketService.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/Subprocess.hs +++ b/GI/Gio/Objects/Subprocess.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,70 +18,87 @@ -- * 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 , @@ -89,30 +107,37 @@ -- ** subprocessSendSignal + SubprocessSendSignalMethodInfo , subprocessSendSignal , -- ** subprocessWait + SubprocessWaitMethodInfo , subprocessWait , -- ** subprocessWaitAsync + SubprocessWaitAsyncMethodInfo , subprocessWaitAsync , -- ** subprocessWaitCheck + SubprocessWaitCheckMethodInfo , subprocessWaitCheck , -- ** subprocessWaitCheckAsync + SubprocessWaitCheckAsyncMethodInfo , subprocessWaitCheckAsync , -- ** subprocessWaitCheckFinish + SubprocessWaitCheckFinishMethodInfo , subprocessWaitCheckFinish , -- ** subprocessWaitFinish + SubprocessWaitFinishMethodInfo , subprocessWaitFinish , @@ -166,6 +191,64 @@ 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] @@ -179,7 +262,7 @@ type AttrSetTypeConstraint SubprocessArgvPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint SubprocessArgvPropertyInfo = SubprocessK type AttrGetType SubprocessArgvPropertyInfo = () - type AttrLabel SubprocessArgvPropertyInfo = "Subprocess::argv" + type AttrLabel SubprocessArgvPropertyInfo = "argv" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructSubprocessArgv @@ -197,7 +280,7 @@ type AttrSetTypeConstraint SubprocessFlagsPropertyInfo = (~) [SubprocessFlags] type AttrBaseTypeConstraint SubprocessFlagsPropertyInfo = SubprocessK type AttrGetType SubprocessFlagsPropertyInfo = () - type AttrLabel SubprocessFlagsPropertyInfo = "Subprocess::flags" + type AttrLabel SubprocessFlagsPropertyInfo = "flags" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructSubprocessFlags @@ -206,13 +289,12 @@ type SubprocessAttributeList = ('[ '("argv", SubprocessArgvPropertyInfo), '("flags", SubprocessFlagsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Subprocess = SubprocessSignalList -type SubprocessSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SubprocessSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Subprocess::new -- method type : Constructor --- Args : [Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Subprocess" -- throws : True -- Skip return : False @@ -226,9 +308,9 @@ subprocessNew :: (MonadIO m) => - [T.Text] -> -- argv - [SubprocessFlags] -> -- flags - m Subprocess + [T.Text] -- argv + -> [SubprocessFlags] -- flags + -> m Subprocess -- result subprocessNew argv flags = liftIO $ do argv' <- packZeroTerminatedUTF8CArray argv let flags' = gflagsToWord flags @@ -246,9 +328,8 @@ -- method Subprocess::communicate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -265,46 +346,49 @@ subprocessCommunicate :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (GLib.Bytes) -> -- stdin_buf - Maybe (b) -> -- cancellable - m (GLib.Bytes,GLib.Bytes) -subprocessCommunicate _obj stdin_buf cancellable = liftIO $ do + 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 - maybeStdin_buf <- case stdin_buf of + maybeStdinBuf <- case stdinBuf of Nothing -> return nullPtr - Just jStdin_buf -> do - let jStdin_buf' = unsafeManagedPtrGetPtr jStdin_buf - return jStdin_buf' + 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' - stdout_buf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - stderr_buf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) + stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) + stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) onException (do - _ <- propagateGError $ g_subprocess_communicate _obj' maybeStdin_buf maybeCancellable stdout_buf stderr_buf - stdout_buf' <- peek stdout_buf - stdout_buf'' <- (wrapBoxed GLib.Bytes) stdout_buf' - stderr_buf' <- peek stderr_buf - stderr_buf'' <- (wrapBoxed GLib.Bytes) stderr_buf' + _ <- 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 stdin_buf touchManagedPtr + whenJust stdinBuf touchManagedPtr whenJust cancellable touchManagedPtr - freeMem stdout_buf - freeMem stderr_buf - return (stdout_buf'', stderr_buf'') + freeMem stdoutBuf + freeMem stderrBuf + return (stdoutBuf'', stderrBuf'') ) (do - freeMem stdout_buf - freeMem stderr_buf + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -320,18 +404,18 @@ subprocessCommunicateAsync :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (GLib.Bytes) -> -- stdin_buf - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -subprocessCommunicateAsync _obj stdin_buf cancellable callback = liftIO $ do + 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 - maybeStdin_buf <- case stdin_buf of + maybeStdinBuf <- case stdinBuf of Nothing -> return nullPtr - Just jStdin_buf -> do - let jStdin_buf' = unsafeManagedPtrGetPtr jStdin_buf - return jStdin_buf' + Just jStdinBuf -> do + let jStdinBuf' = unsafeManagedPtrGetPtr jStdinBuf + return jStdinBuf' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -344,18 +428,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_subprocess_communicate_async _obj' maybeStdin_buf maybeCancellable maybeCallback user_data + let userData = nullPtr + g_subprocess_communicate_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData touchManagedPtr _obj - whenJust stdin_buf touchManagedPtr + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -371,35 +458,38 @@ subprocessCommunicateFinish :: (MonadIO m, SubprocessK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (GLib.Bytes,GLib.Bytes) + a -- _obj + -> b -- result_ + -> m (GLib.Bytes,GLib.Bytes) -- result subprocessCommunicateFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - stdout_buf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - stderr_buf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) + stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) + stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) onException (do - _ <- propagateGError $ g_subprocess_communicate_finish _obj' result_' stdout_buf stderr_buf - stdout_buf' <- peek stdout_buf - stdout_buf'' <- (wrapBoxed GLib.Bytes) stdout_buf' - stderr_buf' <- peek stderr_buf - stderr_buf'' <- (wrapBoxed GLib.Bytes) stderr_buf' + _ <- 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 stdout_buf - freeMem stderr_buf - return (stdout_buf'', stderr_buf'') + freeMem stdoutBuf + freeMem stderrBuf + return (stdoutBuf'', stderrBuf'') ) (do - freeMem stdout_buf - freeMem stderr_buf + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -416,49 +506,52 @@ subprocessCommunicateUtf8 :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (T.Text) -> -- stdin_buf - Maybe (b) -> -- cancellable - m (T.Text,T.Text) -subprocessCommunicateUtf8 _obj stdin_buf cancellable = liftIO $ do + 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 - maybeStdin_buf <- case stdin_buf of + maybeStdinBuf <- case stdinBuf of Nothing -> return nullPtr - Just jStdin_buf -> do - jStdin_buf' <- textToCString jStdin_buf - return jStdin_buf' + Just jStdinBuf -> do + jStdinBuf' <- textToCString jStdinBuf + return jStdinBuf' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' - stdout_buf <- allocMem :: IO (Ptr CString) - stderr_buf <- allocMem :: IO (Ptr CString) + stdoutBuf <- allocMem :: IO (Ptr CString) + stderrBuf <- allocMem :: IO (Ptr CString) onException (do - _ <- propagateGError $ g_subprocess_communicate_utf8 _obj' maybeStdin_buf maybeCancellable stdout_buf stderr_buf - stdout_buf' <- peek stdout_buf - stdout_buf'' <- cstringToText stdout_buf' - freeMem stdout_buf' - stderr_buf' <- peek stderr_buf - stderr_buf'' <- cstringToText stderr_buf' - freeMem stderr_buf' + _ <- 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 maybeStdin_buf - freeMem stdout_buf - freeMem stderr_buf - return (stdout_buf'', stderr_buf'') + freeMem maybeStdinBuf + freeMem stdoutBuf + freeMem stderrBuf + return (stdoutBuf'', stderrBuf'') ) (do - freeMem maybeStdin_buf - freeMem stdout_buf - freeMem stderr_buf + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -474,18 +567,18 @@ subprocessCommunicateUtf8Async :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (T.Text) -> -- stdin_buf - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -subprocessCommunicateUtf8Async _obj stdin_buf cancellable callback = liftIO $ do + 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 - maybeStdin_buf <- case stdin_buf of + maybeStdinBuf <- case stdinBuf of Nothing -> return nullPtr - Just jStdin_buf -> do - jStdin_buf' <- textToCString jStdin_buf - return jStdin_buf' + Just jStdinBuf -> do + jStdinBuf' <- textToCString jStdinBuf + return jStdinBuf' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -498,18 +591,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_subprocess_communicate_utf8_async _obj' maybeStdin_buf maybeCancellable maybeCallback user_data + let userData = nullPtr + g_subprocess_communicate_utf8_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData touchManagedPtr _obj whenJust cancellable touchManagedPtr - freeMem maybeStdin_buf + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -525,37 +621,40 @@ subprocessCommunicateUtf8Finish :: (MonadIO m, SubprocessK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m (T.Text,T.Text) + a -- _obj + -> b -- result_ + -> m (T.Text,T.Text) -- result subprocessCommunicateUtf8Finish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ - stdout_buf <- allocMem :: IO (Ptr CString) - stderr_buf <- allocMem :: IO (Ptr CString) + stdoutBuf <- allocMem :: IO (Ptr CString) + stderrBuf <- allocMem :: IO (Ptr CString) onException (do - _ <- propagateGError $ g_subprocess_communicate_utf8_finish _obj' result_' stdout_buf stderr_buf - stdout_buf' <- peek stdout_buf - stdout_buf'' <- cstringToText stdout_buf' - freeMem stdout_buf' - stderr_buf' <- peek stderr_buf - stderr_buf'' <- cstringToText stderr_buf' - freeMem stderr_buf' + _ <- 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 stdout_buf - freeMem stderr_buf - return (stdout_buf'', stderr_buf'') + freeMem stdoutBuf + freeMem stderrBuf + return (stdoutBuf'', stderrBuf'') ) (do - freeMem stdout_buf - freeMem stderr_buf + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -567,19 +666,22 @@ subprocessForceExit :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -591,19 +693,22 @@ subprocessGetExitStatus :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -615,8 +720,8 @@ subprocessGetIdentifier :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result subprocessGetIdentifier _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_identifier _obj' @@ -625,11 +730,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -641,8 +749,8 @@ subprocessGetIfExited :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result subprocessGetIfExited _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_if_exited _obj' @@ -650,11 +758,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -666,8 +777,8 @@ subprocessGetIfSignaled :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result subprocessGetIfSignaled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_if_signaled _obj' @@ -675,11 +786,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -691,19 +805,22 @@ subprocessGetStatus :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : False -- Skip return : False @@ -715,8 +832,8 @@ subprocessGetStderrPipe :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m InputStream + a -- _obj + -> m InputStream -- result subprocessGetStderrPipe _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_stderr_pipe _obj' @@ -725,11 +842,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "OutputStream" -- throws : False -- Skip return : False @@ -741,8 +861,8 @@ subprocessGetStdinPipe :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m OutputStream + a -- _obj + -> m OutputStream -- result subprocessGetStdinPipe _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_stdin_pipe _obj' @@ -751,11 +871,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : False -- Skip return : False @@ -767,8 +890,8 @@ subprocessGetStdoutPipe :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m InputStream + a -- _obj + -> m InputStream -- result subprocessGetStdoutPipe _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_stdout_pipe _obj' @@ -777,11 +900,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -793,8 +919,8 @@ subprocessGetSuccessful :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result subprocessGetSuccessful _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_subprocess_get_successful _obj' @@ -802,11 +928,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -818,19 +947,22 @@ subprocessGetTermSig :: (MonadIO m, SubprocessK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -843,20 +975,23 @@ subprocessSendSignal :: (MonadIO m, SubprocessK a) => - a -> -- _obj - Int32 -> -- signal_num - m () -subprocessSendSignal _obj signal_num = liftIO $ do + a -- _obj + -> Int32 -- signalNum + -> m () -- result +subprocessSendSignal _obj signalNum = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_send_signal _obj' signal_num + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -870,9 +1005,9 @@ subprocessWait :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result subprocessWait _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -889,11 +1024,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -908,10 +1046,10 @@ subprocessWaitAsync :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result subprocessWaitAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -926,17 +1064,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_subprocess_wait_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -950,9 +1091,9 @@ subprocessWaitCheck :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result subprocessWaitCheck _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -969,11 +1110,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -988,10 +1132,10 @@ subprocessWaitCheckAsync :: (MonadIO m, SubprocessK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result subprocessWaitCheckAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -1006,17 +1150,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_subprocess_wait_check_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1030,9 +1177,9 @@ subprocessWaitCheckFinish :: (MonadIO m, SubprocessK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result subprocessWaitCheckFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1045,11 +1192,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -1063,9 +1213,9 @@ subprocessWaitFinish :: (MonadIO m, SubprocessK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result subprocessWaitFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -1077,5 +1227,9 @@ ) (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 --- a/GI/Gio/Objects/Subprocess.hs-boot +++ b/GI/Gio/Objects/Subprocess.hs-boot @@ -13,3 +13,27 @@ 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 --- a/GI/Gio/Objects/SubprocessLauncher.hs +++ b/GI/Gio/Objects/SubprocessLauncher.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** subprocessLauncherGetenv + SubprocessLauncherGetenvMethodInfo , subprocessLauncherGetenv , @@ -25,58 +27,72 @@ -- ** 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 , @@ -125,6 +141,54 @@ 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] @@ -138,7 +202,7 @@ type AttrSetTypeConstraint SubprocessLauncherFlagsPropertyInfo = (~) [SubprocessFlags] type AttrBaseTypeConstraint SubprocessLauncherFlagsPropertyInfo = SubprocessLauncherK type AttrGetType SubprocessLauncherFlagsPropertyInfo = () - type AttrLabel SubprocessLauncherFlagsPropertyInfo = "SubprocessLauncher::flags" + type AttrLabel SubprocessLauncherFlagsPropertyInfo = "flags" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructSubprocessLauncherFlags @@ -147,13 +211,12 @@ type SubprocessLauncherAttributeList = ('[ '("flags", SubprocessLauncherFlagsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList SubprocessLauncher = SubprocessLauncherSignalList -type SubprocessLauncherSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type SubprocessLauncherSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method SubprocessLauncher::new -- method type : Constructor --- Args : [Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SubprocessLauncher" -- throws : False -- Skip return : False @@ -165,8 +228,8 @@ subprocessLauncherNew :: (MonadIO m) => - [SubprocessFlags] -> -- flags - m SubprocessLauncher + [SubprocessFlags] -- flags + -> m SubprocessLauncher -- result subprocessLauncherNew flags = liftIO $ do let flags' = gflagsToWord flags result <- g_subprocess_launcher_new flags' @@ -176,9 +239,8 @@ -- method SubprocessLauncher::getenv -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -191,9 +253,9 @@ subprocessLauncherGetenv :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- variable - m T.Text + a -- _obj + -> T.Text -- variable + -> m T.Text -- result subprocessLauncherGetenv _obj variable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj variable' <- textToCString variable @@ -204,11 +266,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -223,23 +288,26 @@ subprocessLauncherSetChildSetup :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - GLib.SpawnChildSetupFunc -> -- child_setup - m () -subprocessLauncherSetChildSetup _obj child_setup = liftIO $ do + a -- _obj + -> GLib.SpawnChildSetupFunc -- childSetup + -> m () -- result +subprocessLauncherSetChildSetup _obj childSetup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - child_setup' <- GLib.mkSpawnChildSetupFunc (GLib.spawnChildSetupFuncWrapper Nothing child_setup) - let user_data = castFunPtrToPtr child_setup' - let destroy_notify = safeFreeFunPtrPtr - g_subprocess_launcher_set_child_setup _obj' child_setup' user_data destroy_notify + 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -252,9 +320,9 @@ subprocessLauncherSetCwd :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- cwd - m () + a -- _obj + -> T.Text -- cwd + -> m () -- result subprocessLauncherSetCwd _obj cwd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj cwd' <- textToCString cwd @@ -263,11 +331,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -280,9 +351,9 @@ subprocessLauncherSetEnviron :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- env - m () + a -- _obj + -> T.Text -- env + -> m () -- result subprocessLauncherSetEnviron _obj env = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj env' <- textToCString env @@ -291,11 +362,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -308,9 +382,9 @@ subprocessLauncherSetFlags :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - [SubprocessFlags] -> -- flags - m () + a -- _obj + -> [SubprocessFlags] -- flags + -> m () -- result subprocessLauncherSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -318,11 +392,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -335,9 +412,9 @@ subprocessLauncherSetStderrFilePath :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result subprocessLauncherSetStderrFilePath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -346,11 +423,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -363,9 +443,9 @@ subprocessLauncherSetStdinFilePath :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result subprocessLauncherSetStdinFilePath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -374,11 +454,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -391,9 +474,9 @@ subprocessLauncherSetStdoutFilePath :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result subprocessLauncherSetStdoutFilePath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -402,11 +485,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -421,11 +507,11 @@ subprocessLauncherSetenv :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- variable - T.Text -> -- value - Bool -> -- overwrite - m () + 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 @@ -437,11 +523,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Subprocess" -- throws : True -- Skip return : False @@ -455,9 +544,9 @@ subprocessLauncherSpawnv :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - [T.Text] -> -- argv - m Subprocess + a -- _obj + -> [T.Text] -- argv + -> m Subprocess -- result subprocessLauncherSpawnv _obj argv = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj argv' <- packZeroTerminatedUTF8CArray argv @@ -474,11 +563,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -492,21 +584,24 @@ subprocessLauncherTakeFd :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - Int32 -> -- source_fd - Int32 -> -- target_fd - m () -subprocessLauncherTakeFd _obj source_fd target_fd = liftIO $ do + a -- _obj + -> Int32 -- sourceFd + -> Int32 -- targetFd + -> m () -- result +subprocessLauncherTakeFd _obj sourceFd targetFd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_launcher_take_fd _obj' source_fd target_fd + 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -519,20 +614,23 @@ subprocessLauncherTakeStderrFd :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - Int32 -> -- fd - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -545,20 +643,23 @@ subprocessLauncherTakeStdinFd :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - Int32 -> -- fd - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -571,20 +672,23 @@ subprocessLauncherTakeStdoutFd :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - Int32 -> -- fd - m () + 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 {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -597,9 +701,9 @@ subprocessLauncherUnsetenv :: (MonadIO m, SubprocessLauncherK a) => - a -> -- _obj - T.Text -> -- variable - m () + a -- _obj + -> T.Text -- variable + -> m () -- result subprocessLauncherUnsetenv _obj variable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj variable' <- textToCString variable @@ -607,5 +711,9 @@ 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 --- a/GI/Gio/Objects/SubprocessLauncher.hs-boot +++ b/GI/Gio/Objects/SubprocessLauncher.hs-boot @@ -12,3 +12,18 @@ 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 --- a/GI/Gio/Objects/Task.hs +++ b/GI/Gio/Objects/Task.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,42 +18,52 @@ -- * 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 , @@ -65,14 +76,17 @@ -- ** taskPropagateBoolean + TaskPropagateBooleanMethodInfo , taskPropagateBoolean , -- ** taskPropagateInt + TaskPropagateIntMethodInfo , taskPropagateInt , -- ** taskPropagatePointer + TaskPropagatePointerMethodInfo , taskPropagatePointer , @@ -81,42 +95,52 @@ -- ** 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 , @@ -165,6 +189,64 @@ 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] @@ -178,7 +260,7 @@ type AttrSetTypeConstraint TaskCompletedPropertyInfo = (~) () type AttrBaseTypeConstraint TaskCompletedPropertyInfo = TaskK type AttrGetType TaskCompletedPropertyInfo = Bool - type AttrLabel TaskCompletedPropertyInfo = "Task::completed" + type AttrLabel TaskCompletedPropertyInfo = "completed" attrGet _ = getTaskCompleted attrSet _ = undefined attrConstruct _ = undefined @@ -187,13 +269,12 @@ type TaskAttributeList = ('[ '("completed", TaskCompletedPropertyInfo)] :: [(Symbol, *)]) type instance SignalList Task = TaskSignalList -type TaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Task::new -- method type : Constructor --- Args : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Task" -- throws : False -- Skip return : False @@ -208,16 +289,16 @@ taskNew :: (MonadIO m, GObject.ObjectK a, CancellableK b) => - Maybe (a) -> -- source_object - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m Task -taskNew source_object cancellable callback = liftIO $ do - maybeSource_object <- case source_object of + 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 jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' maybeCancellable <- case cancellable of Nothing -> return nullPtr Just jCancellable -> do @@ -230,19 +311,18 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let callback_data = nullPtr - result <- g_task_new maybeSource_object maybeCancellable maybeCallback callback_data + let callbackData = nullPtr + result <- g_task_new maybeSourceObject maybeCancellable maybeCallback callbackData checkUnexpectedReturnNULL "g_task_new" result result' <- (wrapObject Task) result - whenJust source_object touchManagedPtr + whenJust sourceObject touchManagedPtr whenJust cancellable touchManagedPtr return result' -- method Task::get_cancellable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Cancellable" -- throws : False -- Skip return : False @@ -254,8 +334,8 @@ taskGetCancellable :: (MonadIO m, TaskK a) => - a -> -- _obj - m Cancellable + a -- _obj + -> m Cancellable -- result taskGetCancellable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_cancellable _obj' @@ -264,11 +344,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -280,8 +363,8 @@ taskGetCheckCancellable :: (MonadIO m, TaskK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result taskGetCheckCancellable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_check_cancellable _obj' @@ -289,11 +372,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -305,8 +391,8 @@ taskGetCompleted :: (MonadIO m, TaskK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result taskGetCompleted _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_completed _obj' @@ -314,11 +400,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "MainContext" -- throws : False -- Skip return : False @@ -330,8 +419,8 @@ taskGetContext :: (MonadIO m, TaskK a) => - a -> -- _obj - m GLib.MainContext + a -- _obj + -> m GLib.MainContext -- result taskGetContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_context _obj' @@ -340,11 +429,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -356,19 +448,22 @@ taskGetPriority :: (MonadIO m, TaskK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -380,8 +475,8 @@ taskGetReturnOnCancel :: (MonadIO m, TaskK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result taskGetReturnOnCancel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_return_on_cancel _obj' @@ -389,11 +484,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False @@ -405,8 +503,8 @@ taskGetSourceObject :: (MonadIO m, TaskK a) => - a -> -- _obj - m GObject.Object + a -- _obj + -> m GObject.Object -- result taskGetSourceObject _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_get_source_object _obj' @@ -415,11 +513,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -431,19 +532,22 @@ taskGetSourceTag :: (MonadIO m, TaskK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result taskGetSourceTag _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_task_get_source_tag _obj' touchManagedPtr _obj return () +data TaskGetSourceTagMethodInfo +instance (signature ~ (m ()), MonadIO m, TaskK a) => MethodInfo TaskGetSourceTagMethodInfo a signature where + overloadedMethod _ = taskGetSourceTag + -- method Task::get_task_data -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -455,19 +559,22 @@ taskGetTaskData :: (MonadIO m, TaskK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result taskGetTaskData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj g_task_get_task_data _obj' touchManagedPtr _obj return () +data TaskGetTaskDataMethodInfo +instance (signature ~ (m ()), MonadIO m, TaskK a) => MethodInfo TaskGetTaskDataMethodInfo a signature where + overloadedMethod _ = taskGetTaskData + -- method Task::had_error -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -479,8 +586,8 @@ taskHadError :: (MonadIO m, TaskK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result taskHadError _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_had_error _obj' @@ -488,11 +595,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -505,8 +615,8 @@ taskPropagateBoolean :: (MonadIO m, TaskK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result taskPropagateBoolean _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -517,11 +627,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : True -- Skip return : False @@ -534,8 +647,8 @@ taskPropagateInt :: (MonadIO m, TaskK a) => - a -> -- _obj - m Int64 + a -- _obj + -> m Int64 -- result taskPropagateInt _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -546,11 +659,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : True -- Skip return : False @@ -563,8 +679,8 @@ taskPropagatePointer :: (MonadIO m, TaskK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result taskPropagatePointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -575,11 +691,14 @@ return () ) +data TaskPropagatePointerMethodInfo +instance (signature ~ (m ()), MonadIO m, TaskK a) => MethodInfo TaskPropagatePointerMethodInfo a signature where + overloadedMethod _ = taskPropagatePointer + -- method Task::return_boolean -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -592,9 +711,9 @@ taskReturnBoolean :: (MonadIO m, TaskK a) => - a -> -- _obj - Bool -> -- result - m () + a -- _obj + -> Bool -- result_ + -> m () -- result taskReturnBoolean _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = (fromIntegral . fromEnum) result_ @@ -602,11 +721,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -619,9 +741,9 @@ taskReturnError :: (MonadIO m, TaskK a) => - a -> -- _obj - GError -> -- error - m () + a -- _obj + -> GError -- error_ + -> m () -- result taskReturnError _obj error_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj error_' <- copyBoxed error_ @@ -630,11 +752,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -646,8 +771,8 @@ taskReturnErrorIfCancelled :: (MonadIO m, TaskK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result taskReturnErrorIfCancelled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_task_return_error_if_cancelled _obj' @@ -655,11 +780,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -672,20 +800,23 @@ taskReturnInt :: (MonadIO m, TaskK a) => - a -> -- _obj - Int64 -> -- result - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "result_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "result_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -699,32 +830,35 @@ taskReturnPointer :: (MonadIO m, TaskK a) => - a -> -- _obj - Maybe (Ptr ()) -> -- result - Maybe (GLib.DestroyNotify) -> -- result_destroy - m () -taskReturnPointer _obj result_ result_destroy = liftIO $ do + a -- _obj + -> Maybe (Ptr ()) -- result_ + -> Maybe (GLib.DestroyNotify) -- resultDestroy + -> m () -- result +taskReturnPointer _obj result_ resultDestroy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeResult_ <- case result_ of Nothing -> return nullPtr Just jResult_ -> do return jResult_ - ptrresult_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeResult_destroy <- case result_destroy of + ptrresultDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeResultDestroy <- case resultDestroy of Nothing -> return (castPtrToFunPtr nullPtr) - Just jResult_destroy -> do - jResult_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrresult_destroy) jResult_destroy) - poke ptrresult_destroy jResult_destroy' - return jResult_destroy' - g_task_return_pointer _obj' maybeResult_ maybeResult_destroy + Just jResultDestroy -> do + jResultDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrresultDestroy) jResultDestroy) + poke ptrresultDestroy jResultDestroy' + return jResultDestroy' + g_task_return_pointer _obj' maybeResult_ maybeResultDestroy touchManagedPtr _obj return () +data TaskReturnPointerMethodInfo +instance (signature ~ (Maybe (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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_cancellable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_cancellable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -737,21 +871,24 @@ taskSetCheckCancellable :: (MonadIO m, TaskK a) => - a -> -- _obj - Bool -> -- check_cancellable - m () -taskSetCheckCancellable _obj check_cancellable = liftIO $ do + a -- _obj + -> Bool -- checkCancellable + -> m () -- result +taskSetCheckCancellable _obj checkCancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let check_cancellable' = (fromIntegral . fromEnum) check_cancellable - g_task_set_check_cancellable _obj' check_cancellable' + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -764,20 +901,23 @@ taskSetPriority :: (MonadIO m, TaskK a) => - a -> -- _obj - Int32 -> -- priority - m () + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_on_cancel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "return_on_cancel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -790,22 +930,25 @@ taskSetReturnOnCancel :: (MonadIO m, TaskK a) => - a -> -- _obj - Bool -> -- return_on_cancel - m Bool -taskSetReturnOnCancel _obj return_on_cancel = liftIO $ do + a -- _obj + -> Bool -- returnOnCancel + -> m Bool -- result +taskSetReturnOnCancel _obj returnOnCancel = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let return_on_cancel' = (fromIntegral . fromEnum) return_on_cancel - result <- g_task_set_return_on_cancel _obj' return_on_cancel' + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -818,20 +961,23 @@ taskSetSourceTag :: (MonadIO m, TaskK a) => - a -> -- _obj - Ptr () -> -- source_tag - m () -taskSetSourceTag _obj source_tag = liftIO $ do + a -- _obj + -> Ptr () -- sourceTag + -> m () -- result +taskSetSourceTag _obj sourceTag = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_task_set_source_tag _obj' source_tag + 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 {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "task_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "task_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "task_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "task_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -845,32 +991,35 @@ taskSetTaskData :: (MonadIO m, TaskK a) => - a -> -- _obj - Maybe (Ptr ()) -> -- task_data - Maybe (GLib.DestroyNotify) -> -- task_data_destroy - m () -taskSetTaskData _obj task_data task_data_destroy = liftIO $ do + a -- _obj + -> Maybe (Ptr ()) -- taskData + -> Maybe (GLib.DestroyNotify) -- taskDataDestroy + -> m () -- result +taskSetTaskData _obj taskData taskDataDestroy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeTask_data <- case task_data of + maybeTaskData <- case taskData of Nothing -> return nullPtr - Just jTask_data -> do - return jTask_data - ptrtask_data_destroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeTask_data_destroy <- case task_data_destroy of + Just jTaskData -> do + return jTaskData + ptrtaskDataDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeTaskDataDestroy <- case taskDataDestroy of Nothing -> return (castPtrToFunPtr nullPtr) - Just jTask_data_destroy -> do - jTask_data_destroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrtask_data_destroy) jTask_data_destroy) - poke ptrtask_data_destroy jTask_data_destroy' - return jTask_data_destroy' - g_task_set_task_data _obj' maybeTask_data maybeTask_data_destroy + Just jTaskDataDestroy -> do + jTaskDataDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrtaskDataDestroy) jTaskDataDestroy) + poke ptrtaskDataDestroy jTaskDataDestroy' + return jTaskDataDestroy' + g_task_set_task_data _obj' maybeTaskData maybeTaskDataDestroy touchManagedPtr _obj return () +data TaskSetTaskDataMethodInfo +instance (signature ~ (Maybe (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 {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -883,27 +1032,26 @@ taskIsValid :: (MonadIO m, AsyncResultK a, GObject.ObjectK b) => - a -> -- result - Maybe (b) -> -- source_object - m Bool -taskIsValid result_ source_object = liftIO $ do + a -- result_ + -> Maybe (b) -- sourceObject + -> m Bool -- result +taskIsValid result_ sourceObject = liftIO $ do let result_' = unsafeManagedPtrCastPtr result_ - maybeSource_object <- case source_object of + maybeSourceObject <- case sourceObject of Nothing -> return nullPtr - Just jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' - result <- g_task_is_valid result_' maybeSource_object + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' + result <- g_task_is_valid result_' maybeSourceObject let result' = (/= 0) result touchManagedPtr result_ - whenJust source_object touchManagedPtr + whenJust sourceObject touchManagedPtr return result' -- method Task::report_error -- method type : MemberFunction --- Args : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [Arg {argName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -919,17 +1067,17 @@ taskReportError :: (MonadIO m, GObject.ObjectK a) => - Maybe (a) -> -- source_object - Maybe (AsyncReadyCallback) -> -- callback - Ptr () -> -- source_tag - GError -> -- error - m () -taskReportError source_object callback source_tag error_ = liftIO $ do - maybeSource_object <- case source_object of + 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 jSource_object -> do - let jSource_object' = unsafeManagedPtrCastPtr jSource_object - return jSource_object' + Just jSourceObject -> do + let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject + return jSourceObject' ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC)) maybeCallback <- case callback of Nothing -> return (castPtrToFunPtr nullPtr) @@ -938,9 +1086,9 @@ poke ptrcallback jCallback' return jCallback' error_' <- copyBoxed error_ - let callback_data = nullPtr - g_task_report_error maybeSource_object maybeCallback callback_data source_tag error_' - whenJust source_object touchManagedPtr + 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 --- a/GI/Gio/Objects/Task.hs-boot +++ b/GI/Gio/Objects/Task.hs-boot @@ -12,3 +12,26 @@ 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 --- a/GI/Gio/Objects/TcpConnection.hs +++ b/GI/Gio/Objects/TcpConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** tcpConnectionGetGracefulDisconnect + TcpConnectionGetGracefulDisconnectMethodInfo, tcpConnectionGetGracefulDisconnect , -- ** tcpConnectionSetGracefulDisconnect + TcpConnectionSetGracefulDisconnectMethodInfo, tcpConnectionSetGracefulDisconnect , @@ -70,6 +73,58 @@ 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] @@ -89,22 +144,21 @@ type AttrSetTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = (~) Bool type AttrBaseTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = TcpConnectionK type AttrGetType TcpConnectionGracefulDisconnectPropertyInfo = Bool - type AttrLabel TcpConnectionGracefulDisconnectPropertyInfo = "TcpConnection::graceful-disconnect" + type AttrLabel TcpConnectionGracefulDisconnectPropertyInfo = "graceful-disconnect" attrGet _ = getTcpConnectionGracefulDisconnect attrSet _ = setTcpConnectionGracefulDisconnect attrConstruct _ = constructTcpConnectionGracefulDisconnect type instance AttributeList TcpConnection = TcpConnectionAttributeList -type TcpConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("graceful-disconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) +type TcpConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TcpConnection = TcpConnectionSignalList -type TcpConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TcpConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TcpConnection::get_graceful_disconnect -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -116,8 +170,8 @@ tcpConnectionGetGracefulDisconnect :: (MonadIO m, TcpConnectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result tcpConnectionGetGracefulDisconnect _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tcp_connection_get_graceful_disconnect _obj' @@ -125,11 +179,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "graceful_disconnect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "graceful_disconnect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -142,14 +199,18 @@ tcpConnectionSetGracefulDisconnect :: (MonadIO m, TcpConnectionK a) => - a -> -- _obj - Bool -> -- graceful_disconnect - m () -tcpConnectionSetGracefulDisconnect _obj graceful_disconnect = liftIO $ do + a -- _obj + -> Bool -- gracefulDisconnect + -> m () -- result +tcpConnectionSetGracefulDisconnect _obj gracefulDisconnect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let graceful_disconnect' = (fromIntegral . fromEnum) graceful_disconnect - g_tcp_connection_set_graceful_disconnect _obj' graceful_disconnect' + 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 --- a/GI/Gio/Objects/TcpConnection.hs-boot +++ b/GI/Gio/Objects/TcpConnection.hs-boot @@ -12,3 +12,5 @@ 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 --- a/GI/Gio/Objects/TcpWrapperConnection.hs +++ b/GI/Gio/Objects/TcpWrapperConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** tcpWrapperConnectionGetBaseIoStream + TcpWrapperConnectionGetBaseIoStreamMethodInfo, tcpWrapperConnectionGetBaseIoStream , @@ -69,6 +71,59 @@ 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] @@ -85,22 +140,21 @@ type AttrSetTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStreamK type AttrBaseTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = TcpWrapperConnectionK type AttrGetType TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStream - type AttrLabel TcpWrapperConnectionBaseIoStreamPropertyInfo = "TcpWrapperConnection::base-io-stream" + type AttrLabel TcpWrapperConnectionBaseIoStreamPropertyInfo = "base-io-stream" attrGet _ = getTcpWrapperConnectionBaseIoStream attrSet _ = undefined attrConstruct _ = constructTcpWrapperConnectionBaseIoStream type instance AttributeList TcpWrapperConnection = TcpWrapperConnectionAttributeList -type TcpWrapperConnectionAttributeList = ('[ '("base-io-stream", TcpWrapperConnectionBaseIoStreamPropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("graceful-disconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) +type TcpWrapperConnectionAttributeList = ('[ '("baseIoStream", TcpWrapperConnectionBaseIoStreamPropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TcpWrapperConnection = TcpWrapperConnectionSignalList -type TcpWrapperConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TcpWrapperConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TcpWrapperConnection::new -- method type : Constructor --- Args : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TcpWrapperConnection" -- throws : False -- Skip return : False @@ -113,24 +167,23 @@ tcpWrapperConnectionNew :: (MonadIO m, IOStreamK a, SocketK b) => - a -> -- base_io_stream - b -> -- socket - m TcpWrapperConnection -tcpWrapperConnectionNew base_io_stream socket = liftIO $ do - let base_io_stream' = unsafeManagedPtrCastPtr base_io_stream + 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 base_io_stream' socket' + result <- g_tcp_wrapper_connection_new baseIoStream' socket' checkUnexpectedReturnNULL "g_tcp_wrapper_connection_new" result result' <- (wrapObject TcpWrapperConnection) result - touchManagedPtr base_io_stream + touchManagedPtr baseIoStream touchManagedPtr socket return result' -- method TcpWrapperConnection::get_base_io_stream -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TcpWrapperConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpWrapperConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TcpWrapperConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "IOStream" -- throws : False -- Skip return : False @@ -142,8 +195,8 @@ tcpWrapperConnectionGetBaseIoStream :: (MonadIO m, TcpWrapperConnectionK a) => - a -> -- _obj - m IOStream + a -- _obj + -> m IOStream -- result tcpWrapperConnectionGetBaseIoStream _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tcp_wrapper_connection_get_base_io_stream _obj' @@ -151,5 +204,9 @@ 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 --- a/GI/Gio/Objects/TcpWrapperConnection.hs-boot +++ b/GI/Gio/Objects/TcpWrapperConnection.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/TestDBus.hs +++ b/GI/Gio/Objects/TestDBus.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** testDBusAddServiceDir + TestDBusAddServiceDirMethodInfo , testDBusAddServiceDir , -- ** testDBusDown + TestDBusDownMethodInfo , testDBusDown , -- ** testDBusGetBusAddress + TestDBusGetBusAddressMethodInfo , testDBusGetBusAddress , -- ** testDBusGetFlags + TestDBusGetFlagsMethodInfo , testDBusGetFlags , @@ -37,6 +42,7 @@ -- ** testDBusStop + TestDBusStopMethodInfo , testDBusStop , @@ -45,6 +51,7 @@ -- ** testDBusUp + TestDBusUpMethodInfo , testDBusUp , @@ -93,6 +100,45 @@ 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] @@ -109,7 +155,7 @@ type AttrSetTypeConstraint TestDBusFlagsPropertyInfo = (~) [TestDBusFlags] type AttrBaseTypeConstraint TestDBusFlagsPropertyInfo = TestDBusK type AttrGetType TestDBusFlagsPropertyInfo = [TestDBusFlags] - type AttrLabel TestDBusFlagsPropertyInfo = "TestDBus::flags" + type AttrLabel TestDBusFlagsPropertyInfo = "flags" attrGet _ = getTestDBusFlags attrSet _ = undefined attrConstruct _ = constructTestDBusFlags @@ -118,13 +164,12 @@ type TestDBusAttributeList = ('[ '("flags", TestDBusFlagsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TestDBus = TestDBusSignalList -type TestDBusSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TestDBusSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TestDBus::new -- method type : Constructor --- Args : [Arg {argName = "flags", argType = TInterface "Gio" "TestDBusFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "TestDBusFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "flags", argType = TInterface "Gio" "TestDBusFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TestDBus" -- throws : False -- Skip return : False @@ -136,8 +181,8 @@ testDBusNew :: (MonadIO m) => - [TestDBusFlags] -> -- flags - m TestDBus + [TestDBusFlags] -- flags + -> m TestDBus -- result testDBusNew flags = liftIO $ do let flags' = gflagsToWord flags result <- g_test_dbus_new flags' @@ -147,9 +192,8 @@ -- method TestDBus::add_service_dir -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -162,9 +206,9 @@ testDBusAddServiceDir :: (MonadIO m, TestDBusK a) => - a -> -- _obj - T.Text -> -- path - m () + a -- _obj + -> T.Text -- path + -> m () -- result testDBusAddServiceDir _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -173,11 +217,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -189,19 +236,22 @@ testDBusDown :: (MonadIO m, TestDBusK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -213,8 +263,8 @@ testDBusGetBusAddress :: (MonadIO m, TestDBusK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result testDBusGetBusAddress _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_test_dbus_get_bus_address _obj' @@ -223,11 +273,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TestDBusFlags" -- throws : False -- Skip return : False @@ -239,8 +292,8 @@ testDBusGetFlags :: (MonadIO m, TestDBusK a) => - a -> -- _obj - m [TestDBusFlags] + a -- _obj + -> m [TestDBusFlags] -- result testDBusGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_test_dbus_get_flags _obj' @@ -248,11 +301,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -264,19 +320,22 @@ testDBusStop :: (MonadIO m, TestDBusK a) => - a -> -- _obj - m () + 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 {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -288,19 +347,22 @@ testDBusUp :: (MonadIO m, TestDBusK a) => - a -> -- _obj - m () + 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 : [] --- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -311,7 +373,7 @@ testDBusUnset :: (MonadIO m) => - 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 --- a/GI/Gio/Objects/TestDBus.hs-boot +++ b/GI/Gio/Objects/TestDBus.hs-boot @@ -12,3 +12,9 @@ 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 --- a/GI/Gio/Objects/ThemedIcon.hs +++ b/GI/Gio/Objects/ThemedIcon.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** themedIconAppendName + ThemedIconAppendNameMethodInfo , themedIconAppendName , -- ** themedIconGetNames + ThemedIconGetNamesMethodInfo , themedIconGetNames , @@ -37,6 +40,7 @@ -- ** themedIconPrependName + ThemedIconPrependNameMethodInfo , themedIconPrependName , @@ -96,6 +100,45 @@ 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] @@ -109,7 +152,7 @@ type AttrSetTypeConstraint ThemedIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ThemedIconNamePropertyInfo = ThemedIconK type AttrGetType ThemedIconNamePropertyInfo = () - type AttrLabel ThemedIconNamePropertyInfo = "ThemedIcon::name" + type AttrLabel ThemedIconNamePropertyInfo = "name" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructThemedIconName @@ -130,7 +173,7 @@ type AttrSetTypeConstraint ThemedIconNamesPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint ThemedIconNamesPropertyInfo = ThemedIconK type AttrGetType ThemedIconNamesPropertyInfo = [T.Text] - type AttrLabel ThemedIconNamesPropertyInfo = "ThemedIcon::names" + type AttrLabel ThemedIconNamesPropertyInfo = "names" attrGet _ = getThemedIconNames attrSet _ = undefined attrConstruct _ = constructThemedIconNames @@ -151,22 +194,21 @@ type AttrSetTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = (~) Bool type AttrBaseTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = ThemedIconK type AttrGetType ThemedIconUseDefaultFallbacksPropertyInfo = Bool - type AttrLabel ThemedIconUseDefaultFallbacksPropertyInfo = "ThemedIcon::use-default-fallbacks" + type AttrLabel ThemedIconUseDefaultFallbacksPropertyInfo = "use-default-fallbacks" attrGet _ = getThemedIconUseDefaultFallbacks attrSet _ = undefined attrConstruct _ = constructThemedIconUseDefaultFallbacks type instance AttributeList ThemedIcon = ThemedIconAttributeList -type ThemedIconAttributeList = ('[ '("name", ThemedIconNamePropertyInfo), '("names", ThemedIconNamesPropertyInfo), '("use-default-fallbacks", ThemedIconUseDefaultFallbacksPropertyInfo)] :: [(Symbol, *)]) +type ThemedIconAttributeList = ('[ '("name", ThemedIconNamePropertyInfo), '("names", ThemedIconNamesPropertyInfo), '("useDefaultFallbacks", ThemedIconUseDefaultFallbacksPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ThemedIcon = ThemedIconSignalList -type ThemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ThemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ThemedIcon::new -- method type : Constructor --- Args : [Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ThemedIcon" -- throws : False -- Skip return : False @@ -178,8 +220,8 @@ themedIconNew :: (MonadIO m) => - T.Text -> -- iconname - m ThemedIcon + T.Text -- iconname + -> m ThemedIcon -- result themedIconNew iconname = liftIO $ do iconname' <- textToCString iconname result <- g_themed_icon_new iconname' @@ -190,9 +232,8 @@ -- method ThemedIcon::new_from_names -- method type : Constructor --- Args : [Arg {argName = "iconnames", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "iconnames", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ThemedIcon" -- throws : False -- Skip return : False @@ -205,8 +246,8 @@ themedIconNewFromNames :: (MonadIO m) => - [T.Text] -> -- iconnames - m ThemedIcon + [T.Text] -- iconnames + -> m ThemedIcon -- result themedIconNewFromNames iconnames = liftIO $ do let len = fromIntegral $ length iconnames iconnames' <- packUTF8CArray iconnames @@ -219,9 +260,8 @@ -- method ThemedIcon::new_with_default_fallbacks -- method type : Constructor --- Args : [Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ThemedIcon" -- throws : False -- Skip return : False @@ -233,8 +273,8 @@ themedIconNewWithDefaultFallbacks :: (MonadIO m) => - T.Text -> -- iconname - m ThemedIcon + T.Text -- iconname + -> m ThemedIcon -- result themedIconNewWithDefaultFallbacks iconname = liftIO $ do iconname' <- textToCString iconname result <- g_themed_icon_new_with_default_fallbacks iconname' @@ -245,9 +285,8 @@ -- method ThemedIcon::append_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -260,9 +299,9 @@ themedIconAppendName :: (MonadIO m, ThemedIconK a) => - a -> -- _obj - T.Text -> -- iconname - m () + a -- _obj + -> T.Text -- iconname + -> m () -- result themedIconAppendName _obj iconname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconname' <- textToCString iconname @@ -271,11 +310,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -287,8 +329,8 @@ themedIconGetNames :: (MonadIO m, ThemedIconK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result themedIconGetNames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_themed_icon_get_names _obj' @@ -297,11 +339,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -314,9 +359,9 @@ themedIconPrependName :: (MonadIO m, ThemedIconK a) => - a -> -- _obj - T.Text -> -- iconname - m () + a -- _obj + -> T.Text -- iconname + -> m () -- result themedIconPrependName _obj iconname = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconname' <- textToCString iconname @@ -324,5 +369,9 @@ 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 --- a/GI/Gio/Objects/ThemedIcon.hs-boot +++ b/GI/Gio/Objects/ThemedIcon.hs-boot @@ -14,3 +14,6 @@ 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 --- a/GI/Gio/Objects/ThreadedSocketService.hs +++ b/GI/Gio/Objects/ThreadedSocketService.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -80,6 +81,54 @@ 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 -> @@ -110,10 +159,10 @@ Ptr GObject.Object -> Ptr () -> IO CInt -threadedSocketServiceRunCallbackWrapper _cb _ connection source_object _ = do +threadedSocketServiceRunCallbackWrapper _cb _ connection sourceObject _ = do connection' <- (newObject SocketConnection) connection - source_object' <- (newObject GObject.Object) source_object - result <- _cb connection' source_object' + sourceObject' <- (newObject GObject.Object) sourceObject + result <- _cb connection' sourceObject' let result' = (fromIntegral . fromEnum) result return result' @@ -144,13 +193,13 @@ type AttrSetTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = ThreadedSocketServiceK type AttrGetType ThreadedSocketServiceMaxThreadsPropertyInfo = Int32 - type AttrLabel ThreadedSocketServiceMaxThreadsPropertyInfo = "ThreadedSocketService::max-threads" + type AttrLabel ThreadedSocketServiceMaxThreadsPropertyInfo = "max-threads" attrGet _ = getThreadedSocketServiceMaxThreads attrSet _ = undefined attrConstruct _ = constructThreadedSocketServiceMaxThreads type instance AttributeList ThreadedSocketService = ThreadedSocketServiceAttributeList -type ThreadedSocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listen-backlog", SocketListenerListenBacklogPropertyInfo), '("max-threads", ThreadedSocketServiceMaxThreadsPropertyInfo)] :: [(Symbol, *)]) +type ThreadedSocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo), '("maxThreads", ThreadedSocketServiceMaxThreadsPropertyInfo)] :: [(Symbol, *)]) data ThreadedSocketServiceRunSignalInfo instance SignalInfo ThreadedSocketServiceRunSignalInfo where @@ -158,13 +207,12 @@ connectSignal _ = connectThreadedSocketServiceRun type instance SignalList ThreadedSocketService = ThreadedSocketServiceSignalList -type ThreadedSocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("run", ThreadedSocketServiceRunSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ThreadedSocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("run", ThreadedSocketServiceRunSignalInfo)] :: [(Symbol, *)]) -- method ThreadedSocketService::new -- method type : Constructor --- Args : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ThreadedSocketService" -- throws : False -- Skip return : False @@ -176,10 +224,10 @@ threadedSocketServiceNew :: (MonadIO m) => - Int32 -> -- max_threads - m ThreadedSocketService -threadedSocketServiceNew max_threads = liftIO $ do - result <- g_threaded_socket_service_new max_threads + 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/TlsCertificate.hs b/GI/Gio/Objects/TlsCertificate.hs --- a/GI/Gio/Objects/TlsCertificate.hs +++ b/GI/Gio/Objects/TlsCertificate.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** tlsCertificateGetIssuer + TlsCertificateGetIssuerMethodInfo , tlsCertificateGetIssuer , -- ** tlsCertificateIsSame + TlsCertificateIsSameMethodInfo , tlsCertificateIsSame , @@ -41,6 +44,7 @@ -- ** tlsCertificateVerify + TlsCertificateVerifyMethodInfo , tlsCertificateVerify , @@ -111,6 +115,42 @@ 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] @@ -127,7 +167,7 @@ type AttrSetTypeConstraint TlsCertificateCertificatePropertyInfo = (~) ByteString type AttrBaseTypeConstraint TlsCertificateCertificatePropertyInfo = TlsCertificateK type AttrGetType TlsCertificateCertificatePropertyInfo = ByteString - type AttrLabel TlsCertificateCertificatePropertyInfo = "TlsCertificate::certificate" + type AttrLabel TlsCertificateCertificatePropertyInfo = "certificate" attrGet _ = getTlsCertificateCertificate attrSet _ = undefined attrConstruct _ = constructTlsCertificateCertificate @@ -148,7 +188,7 @@ type AttrSetTypeConstraint TlsCertificateCertificatePemPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TlsCertificateCertificatePemPropertyInfo = TlsCertificateK type AttrGetType TlsCertificateCertificatePemPropertyInfo = T.Text - type AttrLabel TlsCertificateCertificatePemPropertyInfo = "TlsCertificate::certificate-pem" + type AttrLabel TlsCertificateCertificatePemPropertyInfo = "certificate-pem" attrGet _ = getTlsCertificateCertificatePem attrSet _ = undefined attrConstruct _ = constructTlsCertificateCertificatePem @@ -169,7 +209,7 @@ type AttrSetTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK type AttrBaseTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK type AttrGetType TlsCertificateIssuerPropertyInfo = TlsCertificate - type AttrLabel TlsCertificateIssuerPropertyInfo = "TlsCertificate::issuer" + type AttrLabel TlsCertificateIssuerPropertyInfo = "issuer" attrGet _ = getTlsCertificateIssuer attrSet _ = undefined attrConstruct _ = constructTlsCertificateIssuer @@ -187,7 +227,7 @@ type AttrSetTypeConstraint TlsCertificatePrivateKeyPropertyInfo = (~) ByteString type AttrBaseTypeConstraint TlsCertificatePrivateKeyPropertyInfo = TlsCertificateK type AttrGetType TlsCertificatePrivateKeyPropertyInfo = () - type AttrLabel TlsCertificatePrivateKeyPropertyInfo = "TlsCertificate::private-key" + type AttrLabel TlsCertificatePrivateKeyPropertyInfo = "private-key" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructTlsCertificatePrivateKey @@ -205,22 +245,21 @@ type AttrSetTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = TlsCertificateK type AttrGetType TlsCertificatePrivateKeyPemPropertyInfo = () - type AttrLabel TlsCertificatePrivateKeyPemPropertyInfo = "TlsCertificate::private-key-pem" + type AttrLabel TlsCertificatePrivateKeyPemPropertyInfo = "private-key-pem" attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructTlsCertificatePrivateKeyPem type instance AttributeList TlsCertificate = TlsCertificateAttributeList -type TlsCertificateAttributeList = ('[ '("certificate", TlsCertificateCertificatePropertyInfo), '("certificate-pem", TlsCertificateCertificatePemPropertyInfo), '("issuer", TlsCertificateIssuerPropertyInfo), '("private-key", TlsCertificatePrivateKeyPropertyInfo), '("private-key-pem", TlsCertificatePrivateKeyPemPropertyInfo)] :: [(Symbol, *)]) +type TlsCertificateAttributeList = ('[ '("certificate", TlsCertificateCertificatePropertyInfo), '("certificatePem", TlsCertificateCertificatePemPropertyInfo), '("issuer", TlsCertificateIssuerPropertyInfo), '("privateKey", TlsCertificatePrivateKeyPropertyInfo), '("privateKeyPem", TlsCertificatePrivateKeyPemPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TlsCertificate = TlsCertificateSignalList -type TlsCertificateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsCertificateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TlsCertificate::new_from_file -- method type : Constructor --- Args : [Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -233,8 +272,8 @@ tlsCertificateNewFromFile :: (MonadIO m) => - T.Text -> -- file - m TlsCertificate + T.Text -- file + -> m TlsCertificate -- result tlsCertificateNewFromFile file = liftIO $ do file' <- textToCString file onException (do @@ -249,9 +288,8 @@ -- method TlsCertificate::new_from_files -- method type : Constructor --- Args : [Arg {argName = "cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -265,29 +303,28 @@ tlsCertificateNewFromFiles :: (MonadIO m) => - T.Text -> -- cert_file - T.Text -> -- key_file - m TlsCertificate -tlsCertificateNewFromFiles cert_file key_file = liftIO $ do - cert_file' <- textToCString cert_file - key_file' <- textToCString key_file + 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 cert_file' key_file' + result <- propagateGError $ g_tls_certificate_new_from_files certFile' keyFile' checkUnexpectedReturnNULL "g_tls_certificate_new_from_files" result result' <- (wrapObject TlsCertificate) result - freeMem cert_file' - freeMem key_file' + freeMem certFile' + freeMem keyFile' return result' ) (do - freeMem cert_file' - freeMem key_file' + freeMem certFile' + freeMem keyFile' ) -- method TlsCertificate::new_from_pem -- method type : Constructor --- Args : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -301,9 +338,9 @@ tlsCertificateNewFromPem :: (MonadIO m) => - T.Text -> -- data - Int64 -> -- length - m TlsCertificate + T.Text -- data_ + -> Int64 -- length_ + -> m TlsCertificate -- result tlsCertificateNewFromPem data_ length_ = liftIO $ do data_' <- textToCString data_ onException (do @@ -318,9 +355,8 @@ -- method TlsCertificate::get_issuer -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : False -- Skip return : False @@ -332,8 +368,8 @@ tlsCertificateGetIssuer :: (MonadIO m, TlsCertificateK a) => - a -> -- _obj - m TlsCertificate + a -- _obj + -> m TlsCertificate -- result tlsCertificateGetIssuer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_certificate_get_issuer _obj' @@ -342,11 +378,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cert_two", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cert_two", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -359,23 +398,26 @@ tlsCertificateIsSame :: (MonadIO m, TlsCertificateK a, TlsCertificateK b) => - a -> -- _obj - b -> -- cert_two - m Bool -tlsCertificateIsSame _obj cert_two = liftIO $ do + a -- _obj + -> b -- certTwo + -> m Bool -- result +tlsCertificateIsSame _obj certTwo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let cert_two' = unsafeManagedPtrCastPtr cert_two - result <- g_tls_certificate_is_same _obj' cert_two' + let certTwo' = unsafeManagedPtrCastPtr certTwo + result <- g_tls_certificate_is_same _obj' certTwo' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr cert_two + 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 {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trusted_ca", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trusted_ca", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : False -- Skip return : False @@ -389,34 +431,37 @@ tlsCertificateVerify :: (MonadIO m, TlsCertificateK a, SocketConnectableK b, TlsCertificateK c) => - a -> -- _obj - Maybe (b) -> -- identity - Maybe (c) -> -- trusted_ca - m [TlsCertificateFlags] -tlsCertificateVerify _obj identity trusted_ca = liftIO $ do + 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' - maybeTrusted_ca <- case trusted_ca of + maybeTrustedCa <- case trustedCa of Nothing -> return nullPtr - Just jTrusted_ca -> do - let jTrusted_ca' = unsafeManagedPtrCastPtr jTrusted_ca - return jTrusted_ca' - result <- g_tls_certificate_verify _obj' maybeIdentity maybeTrusted_ca + 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 trusted_ca 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 {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "TlsCertificate") -- throws : True -- Skip return : False @@ -429,8 +474,8 @@ tlsCertificateListNewFromFile :: (MonadIO m) => - T.Text -> -- file - m [TlsCertificate] + T.Text -- file + -> m [TlsCertificate] -- result tlsCertificateListNewFromFile file = liftIO $ do file' <- textToCString file onException (do diff --git a/GI/Gio/Objects/TlsCertificate.hs-boot b/GI/Gio/Objects/TlsCertificate.hs-boot --- a/GI/Gio/Objects/TlsCertificate.hs-boot +++ b/GI/Gio/Objects/TlsCertificate.hs-boot @@ -16,3 +16,6 @@ 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 --- a/GI/Gio/Objects/TlsConnection.hs +++ b/GI/Gio/Objects/TlsConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,74 +18,92 @@ -- * 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 , @@ -200,6 +219,67 @@ 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 -> @@ -230,10 +310,10 @@ CUInt -> Ptr () -> IO CInt -tlsConnectionAcceptCertificateCallbackWrapper _cb _ peer_cert errors _ = do - peer_cert' <- (newObject TlsCertificate) peer_cert +tlsConnectionAcceptCertificateCallbackWrapper _cb _ peerCert errors _ = do + peerCert' <- (newObject TlsCertificate) peerCert let errors' = wordToGFlags errors - result <- _cb peer_cert' errors' + result <- _cb peerCert' errors' let result' = (fromIntegral . fromEnum) result return result' @@ -264,7 +344,7 @@ type AttrSetTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = IOStreamK type AttrBaseTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = TlsConnectionK type AttrGetType TlsConnectionBaseIoStreamPropertyInfo = IOStream - type AttrLabel TlsConnectionBaseIoStreamPropertyInfo = "TlsConnection::base-io-stream" + type AttrLabel TlsConnectionBaseIoStreamPropertyInfo = "base-io-stream" attrGet _ = getTlsConnectionBaseIoStream attrSet _ = undefined attrConstruct _ = constructTlsConnectionBaseIoStream @@ -288,7 +368,7 @@ type AttrSetTypeConstraint TlsConnectionCertificatePropertyInfo = TlsCertificateK type AttrBaseTypeConstraint TlsConnectionCertificatePropertyInfo = TlsConnectionK type AttrGetType TlsConnectionCertificatePropertyInfo = TlsCertificate - type AttrLabel TlsConnectionCertificatePropertyInfo = "TlsConnection::certificate" + type AttrLabel TlsConnectionCertificatePropertyInfo = "certificate" attrGet _ = getTlsConnectionCertificate attrSet _ = setTlsConnectionCertificate attrConstruct _ = constructTlsConnectionCertificate @@ -312,7 +392,7 @@ type AttrSetTypeConstraint TlsConnectionDatabasePropertyInfo = TlsDatabaseK type AttrBaseTypeConstraint TlsConnectionDatabasePropertyInfo = TlsConnectionK type AttrGetType TlsConnectionDatabasePropertyInfo = TlsDatabase - type AttrLabel TlsConnectionDatabasePropertyInfo = "TlsConnection::database" + type AttrLabel TlsConnectionDatabasePropertyInfo = "database" attrGet _ = getTlsConnectionDatabase attrSet _ = setTlsConnectionDatabase attrConstruct _ = constructTlsConnectionDatabase @@ -336,7 +416,7 @@ type AttrSetTypeConstraint TlsConnectionInteractionPropertyInfo = TlsInteractionK type AttrBaseTypeConstraint TlsConnectionInteractionPropertyInfo = TlsConnectionK type AttrGetType TlsConnectionInteractionPropertyInfo = TlsInteraction - type AttrLabel TlsConnectionInteractionPropertyInfo = "TlsConnection::interaction" + type AttrLabel TlsConnectionInteractionPropertyInfo = "interaction" attrGet _ = getTlsConnectionInteraction attrSet _ = setTlsConnectionInteraction attrConstruct _ = constructTlsConnectionInteraction @@ -354,7 +434,7 @@ type AttrSetTypeConstraint TlsConnectionPeerCertificatePropertyInfo = (~) () type AttrBaseTypeConstraint TlsConnectionPeerCertificatePropertyInfo = TlsConnectionK type AttrGetType TlsConnectionPeerCertificatePropertyInfo = TlsCertificate - type AttrLabel TlsConnectionPeerCertificatePropertyInfo = "TlsConnection::peer-certificate" + type AttrLabel TlsConnectionPeerCertificatePropertyInfo = "peer-certificate" attrGet _ = getTlsConnectionPeerCertificate attrSet _ = undefined attrConstruct _ = undefined @@ -372,7 +452,7 @@ type AttrSetTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = (~) () type AttrBaseTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = TlsConnectionK type AttrGetType TlsConnectionPeerCertificateErrorsPropertyInfo = [TlsCertificateFlags] - type AttrLabel TlsConnectionPeerCertificateErrorsPropertyInfo = "TlsConnection::peer-certificate-errors" + type AttrLabel TlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors" attrGet _ = getTlsConnectionPeerCertificateErrors attrSet _ = undefined attrConstruct _ = undefined @@ -396,7 +476,7 @@ type AttrSetTypeConstraint TlsConnectionRehandshakeModePropertyInfo = (~) TlsRehandshakeMode type AttrBaseTypeConstraint TlsConnectionRehandshakeModePropertyInfo = TlsConnectionK type AttrGetType TlsConnectionRehandshakeModePropertyInfo = TlsRehandshakeMode - type AttrLabel TlsConnectionRehandshakeModePropertyInfo = "TlsConnection::rehandshake-mode" + type AttrLabel TlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode" attrGet _ = getTlsConnectionRehandshakeMode attrSet _ = setTlsConnectionRehandshakeMode attrConstruct _ = constructTlsConnectionRehandshakeMode @@ -420,7 +500,7 @@ type AttrSetTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool type AttrBaseTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = TlsConnectionK type AttrGetType TlsConnectionRequireCloseNotifyPropertyInfo = Bool - type AttrLabel TlsConnectionRequireCloseNotifyPropertyInfo = "TlsConnection::require-close-notify" + type AttrLabel TlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify" attrGet _ = getTlsConnectionRequireCloseNotify attrSet _ = setTlsConnectionRequireCloseNotify attrConstruct _ = constructTlsConnectionRequireCloseNotify @@ -444,13 +524,13 @@ type AttrSetTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = (~) Bool type AttrBaseTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = TlsConnectionK type AttrGetType TlsConnectionUseSystemCertdbPropertyInfo = Bool - type AttrLabel TlsConnectionUseSystemCertdbPropertyInfo = "TlsConnection::use-system-certdb" + type AttrLabel TlsConnectionUseSystemCertdbPropertyInfo = "use-system-certdb" attrGet _ = getTlsConnectionUseSystemCertdb attrSet _ = setTlsConnectionUseSystemCertdb attrConstruct _ = constructTlsConnectionUseSystemCertdb type instance AttributeList TlsConnection = TlsConnectionAttributeList -type TlsConnectionAttributeList = ('[ '("base-io-stream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("input-stream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("peer-certificate", TlsConnectionPeerCertificatePropertyInfo), '("peer-certificate-errors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshake-mode", TlsConnectionRehandshakeModePropertyInfo), '("require-close-notify", TlsConnectionRequireCloseNotifyPropertyInfo), '("use-system-certdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)]) +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, *)]) data TlsConnectionAcceptCertificateSignalInfo instance SignalInfo TlsConnectionAcceptCertificateSignalInfo where @@ -458,13 +538,12 @@ connectSignal _ = connectTlsConnectionAcceptCertificate type instance SignalList TlsConnection = TlsConnectionSignalList -type TlsConnectionSignalList = ('[ '("accept-certificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TlsConnection::emit_accept_certificate -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "peer_cert", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "peer_cert", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -478,25 +557,28 @@ tlsConnectionEmitAcceptCertificate :: (MonadIO m, TlsConnectionK a, TlsCertificateK b) => - a -> -- _obj - b -> -- peer_cert - [TlsCertificateFlags] -> -- errors - m Bool -tlsConnectionEmitAcceptCertificate _obj peer_cert errors = liftIO $ do + a -- _obj + -> b -- peerCert + -> [TlsCertificateFlags] -- errors + -> m Bool -- result +tlsConnectionEmitAcceptCertificate _obj peerCert errors = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let peer_cert' = unsafeManagedPtrCastPtr peer_cert + let peerCert' = unsafeManagedPtrCastPtr peerCert let errors' = gflagsToWord errors - result <- g_tls_connection_emit_accept_certificate _obj' peer_cert' errors' + result <- g_tls_connection_emit_accept_certificate _obj' peerCert' errors' let result' = (/= 0) result touchManagedPtr _obj - touchManagedPtr peer_cert + 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : False -- Skip return : False @@ -508,8 +590,8 @@ tlsConnectionGetCertificate :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m TlsCertificate + a -- _obj + -> m TlsCertificate -- result tlsConnectionGetCertificate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_certificate _obj' @@ -518,11 +600,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsDatabase" -- throws : False -- Skip return : False @@ -534,8 +619,8 @@ tlsConnectionGetDatabase :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m TlsDatabase + a -- _obj + -> m TlsDatabase -- result tlsConnectionGetDatabase _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_database _obj' @@ -544,11 +629,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteraction" -- throws : False -- Skip return : False @@ -560,8 +648,8 @@ tlsConnectionGetInteraction :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m TlsInteraction + a -- _obj + -> m TlsInteraction -- result tlsConnectionGetInteraction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_interaction _obj' @@ -570,11 +658,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : False -- Skip return : False @@ -586,8 +677,8 @@ tlsConnectionGetPeerCertificate :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m TlsCertificate + a -- _obj + -> m TlsCertificate -- result tlsConnectionGetPeerCertificate _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_peer_certificate _obj' @@ -596,11 +687,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : False -- Skip return : False @@ -612,8 +706,8 @@ tlsConnectionGetPeerCertificateErrors :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m [TlsCertificateFlags] + a -- _obj + -> m [TlsCertificateFlags] -- result tlsConnectionGetPeerCertificateErrors _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_peer_certificate_errors _obj' @@ -621,11 +715,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsRehandshakeMode" -- throws : False -- Skip return : False @@ -637,8 +734,8 @@ tlsConnectionGetRehandshakeMode :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m TlsRehandshakeMode + a -- _obj + -> m TlsRehandshakeMode -- result tlsConnectionGetRehandshakeMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_rehandshake_mode _obj' @@ -646,11 +743,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -662,8 +762,8 @@ tlsConnectionGetRequireCloseNotify :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result tlsConnectionGetRequireCloseNotify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_require_close_notify _obj' @@ -671,11 +771,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -687,8 +790,8 @@ {-# DEPRECATED tlsConnectionGetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_get_database() instead"]#-} tlsConnectionGetUseSystemCertdb :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result tlsConnectionGetUseSystemCertdb _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_connection_get_use_system_certdb _obj' @@ -696,11 +799,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -714,9 +820,9 @@ tlsConnectionHandshake :: (MonadIO m, TlsConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result tlsConnectionHandshake _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -733,11 +839,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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},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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -753,12 +862,12 @@ tlsConnectionHandshakeAsync :: (MonadIO m, TlsConnectionK a, CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -tlsConnectionHandshakeAsync _obj io_priority cancellable callback = liftIO $ do + 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 @@ -772,17 +881,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_connection_handshake_async _obj' io_priority maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -796,9 +908,9 @@ tlsConnectionHandshakeFinish :: (MonadIO m, TlsConnectionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result tlsConnectionHandshakeFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -811,11 +923,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -828,9 +943,9 @@ tlsConnectionSetCertificate :: (MonadIO m, TlsConnectionK a, TlsCertificateK b) => - a -> -- _obj - b -> -- certificate - m () + a -- _obj + -> b -- certificate + -> m () -- result tlsConnectionSetCertificate _obj certificate = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let certificate' = unsafeManagedPtrCastPtr certificate @@ -839,11 +954,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "database", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "database", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -856,9 +974,9 @@ tlsConnectionSetDatabase :: (MonadIO m, TlsConnectionK a, TlsDatabaseK b) => - a -> -- _obj - b -> -- database - m () + a -- _obj + -> b -- database + -> m () -- result tlsConnectionSetDatabase _obj database = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let database' = unsafeManagedPtrCastPtr database @@ -867,11 +985,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -884,9 +1005,9 @@ tlsConnectionSetInteraction :: (MonadIO m, TlsConnectionK a, TlsInteractionK b) => - a -> -- _obj - Maybe (b) -> -- interaction - m () + a -- _obj + -> Maybe (b) -- interaction + -> m () -- result tlsConnectionSetInteraction _obj interaction = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeInteraction <- case interaction of @@ -899,11 +1020,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gio" "TlsRehandshakeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gio" "TlsRehandshakeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -916,9 +1040,9 @@ tlsConnectionSetRehandshakeMode :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - TlsRehandshakeMode -> -- mode - m () + a -- _obj + -> TlsRehandshakeMode -- mode + -> m () -- result tlsConnectionSetRehandshakeMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode @@ -926,11 +1050,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -943,21 +1070,24 @@ tlsConnectionSetRequireCloseNotify :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - Bool -> -- require_close_notify - m () -tlsConnectionSetRequireCloseNotify _obj require_close_notify = liftIO $ do + a -- _obj + -> Bool -- requireCloseNotify + -> m () -- result +tlsConnectionSetRequireCloseNotify _obj requireCloseNotify = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let require_close_notify' = (fromIntegral . fromEnum) require_close_notify - g_tls_connection_set_require_close_notify _obj' require_close_notify' + 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 {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_system_certdb", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_system_certdb", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -970,14 +1100,18 @@ {-# DEPRECATED tlsConnectionSetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_set_database() instead"]#-} tlsConnectionSetUseSystemCertdb :: (MonadIO m, TlsConnectionK a) => - a -> -- _obj - Bool -> -- use_system_certdb - m () -tlsConnectionSetUseSystemCertdb _obj use_system_certdb = liftIO $ do + a -- _obj + -> Bool -- useSystemCertdb + -> m () -- result +tlsConnectionSetUseSystemCertdb _obj useSystemCertdb = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let use_system_certdb' = (fromIntegral . fromEnum) use_system_certdb - g_tls_connection_set_use_system_certdb _obj' use_system_certdb' + 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 --- a/GI/Gio/Objects/TlsConnection.hs-boot +++ b/GI/Gio/Objects/TlsConnection.hs-boot @@ -21,3 +21,21 @@ 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 --- a/GI/Gio/Objects/TlsDatabase.hs +++ b/GI/Gio/Objects/TlsDatabase.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,54 +18,67 @@ -- * 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 , @@ -104,17 +118,62 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TlsDatabase::create_certificate_handle -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -127,9 +186,9 @@ tlsDatabaseCreateCertificateHandle :: (MonadIO m, TlsDatabaseK a, TlsCertificateK b) => - a -> -- _obj - b -> -- certificate - m T.Text + a -- _obj + -> b -- certificate + -> m T.Text -- result tlsDatabaseCreateCertificateHandle _obj certificate = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let certificate' = unsafeManagedPtrCastPtr certificate @@ -141,11 +200,14 @@ touchManagedPtr certificate return result' +data TlsDatabaseCreateCertificateHandleMethodInfo +instance (signature ~ (b -> m 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -162,12 +224,12 @@ tlsDatabaseLookupCertificateForHandle :: (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -> -- _obj - T.Text -> -- handle - Maybe (b) -> -- interaction - TlsDatabaseLookupFlags -> -- flags - Maybe (c) -> -- cancellable - m TlsCertificate + 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 @@ -195,11 +257,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -217,13 +282,13 @@ 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 () + 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 @@ -245,19 +310,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_database_lookup_certificate_for_handle_async _obj' handle' maybeInteraction flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -271,9 +339,9 @@ tlsDatabaseLookupCertificateForHandleFinish :: (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m TlsCertificate + a -- _obj + -> b -- result_ + -> m TlsCertificate -- result tlsDatabaseLookupCertificateForHandleFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -288,11 +356,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -309,12 +380,12 @@ 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 + 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 @@ -342,11 +413,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -364,13 +438,13 @@ 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 () + 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 @@ -392,19 +466,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_database_lookup_certificate_issuer_async _obj' certificate' maybeInteraction flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificate" -- throws : True -- Skip return : False @@ -418,9 +495,9 @@ tlsDatabaseLookupCertificateIssuerFinish :: (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m TlsCertificate + a -- _obj + -> b -- result_ + -> m TlsCertificate -- result tlsDatabaseLookupCertificateIssuerFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -435,11 +512,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "TlsCertificate") -- throws : True -- Skip return : False @@ -456,15 +536,15 @@ tlsDatabaseLookupCertificatesIssuedBy :: (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -> -- _obj - ByteString -> -- issuer_raw_dn - Maybe (b) -> -- interaction - TlsDatabaseLookupFlags -> -- flags - Maybe (c) -> -- cancellable - m [TlsCertificate] -tlsDatabaseLookupCertificatesIssuedBy _obj issuer_raw_dn interaction flags cancellable = liftIO $ do + 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 - issuer_raw_dn' <- packGByteArray issuer_raw_dn + issuerRawDn' <- packGByteArray issuerRawDn maybeInteraction <- case interaction of Nothing -> return nullPtr Just jInteraction -> do @@ -477,7 +557,7 @@ let jCancellable' = unsafeManagedPtrCastPtr jCancellable return jCancellable' onException (do - result <- propagateGError $ g_tls_database_lookup_certificates_issued_by _obj' issuer_raw_dn' maybeInteraction flags' maybeCancellable + result <- propagateGError $ g_tls_database_lookup_certificates_issued_by _obj' issuerRawDn' maybeInteraction flags' maybeCancellable checkUnexpectedReturnNULL "g_tls_database_lookup_certificates_issued_by" result result' <- unpackGList result result'' <- mapM (wrapObject TlsCertificate) result' @@ -485,17 +565,20 @@ touchManagedPtr _obj whenJust interaction touchManagedPtr whenJust cancellable touchManagedPtr - unrefGByteArray issuer_raw_dn' + unrefGByteArray issuerRawDn' return result'' ) (do - unrefGByteArray issuer_raw_dn' + 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -513,16 +596,16 @@ tlsDatabaseLookupCertificatesIssuedByAsync :: (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -> -- _obj - ByteString -> -- issuer_raw_dn - Maybe (b) -> -- interaction - TlsDatabaseLookupFlags -> -- flags - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () -tlsDatabaseLookupCertificatesIssuedByAsync _obj issuer_raw_dn interaction flags cancellable callback = liftIO $ do + 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 - issuer_raw_dn' <- packGByteArray issuer_raw_dn + issuerRawDn' <- packGByteArray issuerRawDn maybeInteraction <- case interaction of Nothing -> return nullPtr Just jInteraction -> do @@ -541,19 +624,22 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_database_lookup_certificates_issued_by_async _obj' issuer_raw_dn' maybeInteraction flags' maybeCancellable maybeCallback user_data + 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 issuer_raw_dn' + 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "TlsCertificate") -- throws : True -- Skip return : False @@ -567,9 +653,9 @@ tlsDatabaseLookupCertificatesIssuedByFinish :: (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [TlsCertificate] + a -- _obj + -> b -- result_ + -> m [TlsCertificate] -- result tlsDatabaseLookupCertificatesIssuedByFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -586,11 +672,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : True -- Skip return : False @@ -609,14 +698,14 @@ 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] + 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 @@ -651,11 +740,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -675,15 +767,15 @@ 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 () + 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 @@ -711,8 +803,8 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_database_verify_chain_async _obj' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable maybeCallback user_data + 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 @@ -721,11 +813,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsCertificateFlags" -- throws : True -- Skip return : False @@ -739,9 +834,9 @@ tlsDatabaseVerifyChainFinish :: (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m [TlsCertificateFlags] + a -- _obj + -> b -- result_ + -> m [TlsCertificateFlags] -- result tlsDatabaseVerifyChainFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -754,5 +849,9 @@ ) (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 --- a/GI/Gio/Objects/TlsDatabase.hs-boot +++ b/GI/Gio/Objects/TlsDatabase.hs-boot @@ -11,3 +11,16 @@ 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 --- a/GI/Gio/Objects/TlsInteraction.hs +++ b/GI/Gio/Objects/TlsInteraction.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * 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 , @@ -84,17 +93,57 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsInteractionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TlsInteraction::ask_password -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -109,10 +158,10 @@ tlsInteractionAskPassword :: (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -> -- _obj - b -> -- password - Maybe (c) -> -- cancellable - m TlsInteractionResult + a -- _obj + -> b -- password + -> Maybe (c) -- cancellable + -> m TlsInteractionResult -- result tlsInteractionAskPassword _obj password cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let password' = unsafeManagedPtrCastPtr password @@ -132,11 +181,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -152,11 +204,11 @@ tlsInteractionAskPasswordAsync :: (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -> -- _obj - b -> -- password - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -172,18 +224,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_interaction_ask_password_async _obj' password' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -197,9 +252,9 @@ tlsInteractionAskPasswordFinish :: (MonadIO m, TlsInteractionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m TlsInteractionResult + a -- _obj + -> b -- result_ + -> m TlsInteractionResult -- result tlsInteractionAskPasswordFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -213,11 +268,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -232,10 +290,10 @@ tlsInteractionInvokeAskPassword :: (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -> -- _obj - b -> -- password - Maybe (c) -> -- cancellable - m TlsInteractionResult + a -- _obj + -> b -- password + -> Maybe (c) -- cancellable + -> m TlsInteractionResult -- result tlsInteractionInvokeAskPassword _obj password cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let password' = unsafeManagedPtrCastPtr password @@ -255,11 +313,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -275,11 +336,11 @@ tlsInteractionInvokeRequestCertificate :: (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -> -- _obj - b -> -- connection - TlsCertificateRequestFlags -> -- flags - Maybe (c) -> -- cancellable - m TlsInteractionResult + 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 @@ -300,11 +361,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -320,11 +384,11 @@ tlsInteractionRequestCertificate :: (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -> -- _obj - b -> -- connection - TlsCertificateRequestFlags -> -- flags - Maybe (c) -> -- cancellable - m TlsInteractionResult + 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 @@ -345,11 +409,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -366,12 +433,12 @@ tlsInteractionRequestCertificateAsync :: (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -> -- _obj - b -> -- connection - TlsCertificateRequestFlags -> -- flags - Maybe (c) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + 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 @@ -388,18 +455,21 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_tls_interaction_request_certificate_async _obj' connection' flags' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsInteractionResult" -- throws : True -- Skip return : False @@ -413,9 +483,9 @@ tlsInteractionRequestCertificateFinish :: (MonadIO m, TlsInteractionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m TlsInteractionResult + a -- _obj + -> b -- result_ + -> m TlsInteractionResult -- result tlsInteractionRequestCertificateFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -428,5 +498,9 @@ ) (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 --- a/GI/Gio/Objects/TlsInteraction.hs-boot +++ b/GI/Gio/Objects/TlsInteraction.hs-boot @@ -11,3 +11,11 @@ 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 --- a/GI/Gio/Objects/TlsPassword.hs +++ b/GI/Gio/Objects/TlsPassword.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** tlsPasswordGetDescription + TlsPasswordGetDescriptionMethodInfo , tlsPasswordGetDescription , -- ** tlsPasswordGetFlags + TlsPasswordGetFlagsMethodInfo , tlsPasswordGetFlags , -- ** tlsPasswordGetWarning + TlsPasswordGetWarningMethodInfo , tlsPasswordGetWarning , @@ -33,22 +37,27 @@ -- ** tlsPasswordSetDescription + TlsPasswordSetDescriptionMethodInfo , tlsPasswordSetDescription , -- ** tlsPasswordSetFlags + TlsPasswordSetFlagsMethodInfo , tlsPasswordSetFlags , -- ** tlsPasswordSetValue + TlsPasswordSetValueMethodInfo , tlsPasswordSetValue , -- ** tlsPasswordSetValueFull + TlsPasswordSetValueFullMethodInfo , tlsPasswordSetValueFull , -- ** tlsPasswordSetWarning + TlsPasswordSetWarningMethodInfo , tlsPasswordSetWarning , @@ -113,6 +122,47 @@ 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] @@ -132,7 +182,7 @@ type AttrSetTypeConstraint TlsPasswordDescriptionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TlsPasswordDescriptionPropertyInfo = TlsPasswordK type AttrGetType TlsPasswordDescriptionPropertyInfo = T.Text - type AttrLabel TlsPasswordDescriptionPropertyInfo = "TlsPassword::description" + type AttrLabel TlsPasswordDescriptionPropertyInfo = "description" attrGet _ = getTlsPasswordDescription attrSet _ = setTlsPasswordDescription attrConstruct _ = constructTlsPasswordDescription @@ -156,7 +206,7 @@ type AttrSetTypeConstraint TlsPasswordFlagsPropertyInfo = (~) [TlsPasswordFlags] type AttrBaseTypeConstraint TlsPasswordFlagsPropertyInfo = TlsPasswordK type AttrGetType TlsPasswordFlagsPropertyInfo = [TlsPasswordFlags] - type AttrLabel TlsPasswordFlagsPropertyInfo = "TlsPassword::flags" + type AttrLabel TlsPasswordFlagsPropertyInfo = "flags" attrGet _ = getTlsPasswordFlags attrSet _ = setTlsPasswordFlags attrConstruct _ = constructTlsPasswordFlags @@ -180,7 +230,7 @@ type AttrSetTypeConstraint TlsPasswordWarningPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TlsPasswordWarningPropertyInfo = TlsPasswordK type AttrGetType TlsPasswordWarningPropertyInfo = T.Text - type AttrLabel TlsPasswordWarningPropertyInfo = "TlsPassword::warning" + type AttrLabel TlsPasswordWarningPropertyInfo = "warning" attrGet _ = getTlsPasswordWarning attrSet _ = setTlsPasswordWarning attrConstruct _ = constructTlsPasswordWarning @@ -189,13 +239,12 @@ type TlsPasswordAttributeList = ('[ '("description", TlsPasswordDescriptionPropertyInfo), '("flags", TlsPasswordFlagsPropertyInfo), '("warning", TlsPasswordWarningPropertyInfo)] :: [(Symbol, *)]) type instance SignalList TlsPassword = TlsPasswordSignalList -type TlsPasswordSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type TlsPasswordSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TlsPassword::new -- method type : Constructor --- Args : [Arg {argName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsPassword" -- throws : False -- Skip return : False @@ -208,9 +257,9 @@ tlsPasswordNew :: (MonadIO m) => - [TlsPasswordFlags] -> -- flags - T.Text -> -- description - m TlsPassword + [TlsPasswordFlags] -- flags + -> T.Text -- description + -> m TlsPassword -- result tlsPasswordNew flags description = liftIO $ do let flags' = gflagsToWord flags description' <- textToCString description @@ -222,9 +271,8 @@ -- method TlsPassword::get_description -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -236,8 +284,8 @@ tlsPasswordGetDescription :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result tlsPasswordGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_password_get_description _obj' @@ -246,11 +294,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "TlsPasswordFlags" -- throws : False -- Skip return : False @@ -262,8 +313,8 @@ tlsPasswordGetFlags :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - m [TlsPasswordFlags] + a -- _obj + -> m [TlsPasswordFlags] -- result tlsPasswordGetFlags _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_password_get_flags _obj' @@ -271,11 +322,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -287,8 +341,8 @@ tlsPasswordGetWarning :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result tlsPasswordGetWarning _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_tls_password_get_warning _obj' @@ -297,11 +351,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -314,9 +371,9 @@ tlsPasswordSetDescription :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - T.Text -> -- description - m () + a -- _obj + -> T.Text -- description + -> m () -- result tlsPasswordSetDescription _obj description = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj description' <- textToCString description @@ -325,11 +382,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -342,9 +402,9 @@ tlsPasswordSetFlags :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - [TlsPasswordFlags] -> -- flags - m () + a -- _obj + -> [TlsPasswordFlags] -- flags + -> m () -- result tlsPasswordSetFlags _obj flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let flags' = gflagsToWord flags @@ -352,11 +412,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -370,21 +433,24 @@ tlsPasswordSetValue :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - Word8 -> -- value - Int64 -> -- length - m () + 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -399,11 +465,11 @@ tlsPasswordSetValueFull :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - Word8 -> -- value - Int64 -> -- length - Maybe (GLib.DestroyNotify) -> -- destroy - m () + 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)) @@ -417,11 +483,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -434,9 +503,9 @@ tlsPasswordSetWarning :: (MonadIO m, TlsPasswordK a) => - a -> -- _obj - T.Text -> -- warning - m () + a -- _obj + -> T.Text -- warning + -> m () -- result tlsPasswordSetWarning _obj warning = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj warning' <- textToCString warning @@ -444,5 +513,9 @@ 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 --- a/GI/Gio/Objects/TlsPassword.hs-boot +++ b/GI/Gio/Objects/TlsPassword.hs-boot @@ -14,3 +14,11 @@ 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 --- a/GI/Gio/Objects/UnixConnection.hs +++ b/GI/Gio/Objects/UnixConnection.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,34 +18,42 @@ -- * 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 , @@ -84,17 +93,74 @@ 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), '("input-stream", IOStreamInputStreamPropertyInfo), '("output-stream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) +type UnixConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixConnection = UnixConnectionSignalList -type UnixConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixConnection::receive_credentials -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Credentials" -- throws : True -- Skip return : False @@ -108,9 +174,9 @@ unixConnectionReceiveCredentials :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Credentials + a -- _obj + -> Maybe (b) -- cancellable + -> m Credentials -- result unixConnectionReceiveCredentials _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -129,11 +195,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -148,10 +217,10 @@ unixConnectionReceiveCredentialsAsync :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result unixConnectionReceiveCredentialsAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -166,17 +235,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_unix_connection_receive_credentials_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Credentials" -- throws : True -- Skip return : False @@ -190,9 +262,9 @@ unixConnectionReceiveCredentialsFinish :: (MonadIO m, UnixConnectionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m Credentials + a -- _obj + -> b -- result_ + -> m Credentials -- result unixConnectionReceiveCredentialsFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -207,11 +279,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -225,9 +300,9 @@ unixConnectionReceiveFd :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Int32 + a -- _obj + -> Maybe (b) -- cancellable + -> m Int32 -- result unixConnectionReceiveFd _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -244,11 +319,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -262,9 +340,9 @@ unixConnectionSendCredentials :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Maybe (b) -- cancellable + -> m () -- result unixConnectionSendCredentials _obj cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -281,11 +359,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -300,10 +381,10 @@ unixConnectionSendCredentialsAsync :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (AsyncReadyCallback) -> -- callback - m () + a -- _obj + -> Maybe (b) -- cancellable + -> Maybe (AsyncReadyCallback) -- callback + -> m () -- result unixConnectionSendCredentialsAsync _obj cancellable callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -318,17 +399,20 @@ jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - g_unix_connection_send_credentials_async _obj' maybeCancellable maybeCallback user_data + 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -342,9 +426,9 @@ unixConnectionSendCredentialsFinish :: (MonadIO m, UnixConnectionK a, AsyncResultK b) => - a -> -- _obj - b -> -- result - m () + a -- _obj + -> b -- result_ + -> m () -- result unixConnectionSendCredentialsFinish _obj result_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let result_' = unsafeManagedPtrCastPtr result_ @@ -357,11 +441,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -376,10 +463,10 @@ unixConnectionSendFd :: (MonadIO m, UnixConnectionK a, CancellableK b) => - a -> -- _obj - Int32 -> -- fd - Maybe (b) -> -- cancellable - m () + a -- _obj + -> Int32 -- fd + -> Maybe (b) -- cancellable + -> m () -- result unixConnectionSendFd _obj fd cancellable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCancellable <- case cancellable of @@ -395,5 +482,9 @@ ) (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 --- a/GI/Gio/Objects/UnixConnection.hs-boot +++ b/GI/Gio/Objects/UnixConnection.hs-boot @@ -11,3 +11,11 @@ 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 --- a/GI/Gio/Objects/UnixCredentialsMessage.hs +++ b/GI/Gio/Objects/UnixCredentialsMessage.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** unixCredentialsMessageGetCredentials + UnixCredentialsMessageGetCredentialsMethodInfo, unixCredentialsMessageGetCredentials , @@ -77,6 +79,44 @@ 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] @@ -93,7 +133,7 @@ type AttrSetTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = CredentialsK type AttrBaseTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = UnixCredentialsMessageK type AttrGetType UnixCredentialsMessageCredentialsPropertyInfo = Credentials - type AttrLabel UnixCredentialsMessageCredentialsPropertyInfo = "UnixCredentialsMessage::credentials" + type AttrLabel UnixCredentialsMessageCredentialsPropertyInfo = "credentials" attrGet _ = getUnixCredentialsMessageCredentials attrSet _ = undefined attrConstruct _ = constructUnixCredentialsMessageCredentials @@ -102,13 +142,12 @@ type UnixCredentialsMessageAttributeList = ('[ '("credentials", UnixCredentialsMessageCredentialsPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixCredentialsMessage = UnixCredentialsMessageSignalList -type UnixCredentialsMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixCredentialsMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixCredentialsMessage::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "UnixCredentialsMessage" -- throws : False -- Skip return : False @@ -119,7 +158,7 @@ unixCredentialsMessageNew :: (MonadIO m) => - m UnixCredentialsMessage + m UnixCredentialsMessage -- result unixCredentialsMessageNew = liftIO $ do result <- g_unix_credentials_message_new checkUnexpectedReturnNULL "g_unix_credentials_message_new" result @@ -128,9 +167,8 @@ -- method UnixCredentialsMessage::new_with_credentials -- method type : Constructor --- Args : [Arg {argName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixCredentialsMessage" -- throws : False -- Skip return : False @@ -142,8 +180,8 @@ unixCredentialsMessageNewWithCredentials :: (MonadIO m, CredentialsK a) => - a -> -- credentials - m UnixCredentialsMessage + a -- credentials + -> m UnixCredentialsMessage -- result unixCredentialsMessageNewWithCredentials credentials = liftIO $ do let credentials' = unsafeManagedPtrCastPtr credentials result <- g_unix_credentials_message_new_with_credentials credentials' @@ -154,9 +192,8 @@ -- method UnixCredentialsMessage::get_credentials -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixCredentialsMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixCredentialsMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixCredentialsMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Credentials" -- throws : False -- Skip return : False @@ -168,8 +205,8 @@ unixCredentialsMessageGetCredentials :: (MonadIO m, UnixCredentialsMessageK a) => - a -> -- _obj - m Credentials + a -- _obj + -> m Credentials -- result unixCredentialsMessageGetCredentials _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_credentials_message_get_credentials _obj' @@ -178,11 +215,14 @@ 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 : [] --- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -193,7 +233,7 @@ unixCredentialsMessageIsSupported :: (MonadIO m) => - m Bool + m Bool -- result unixCredentialsMessageIsSupported = liftIO $ do result <- g_unix_credentials_message_is_supported let result' = (/= 0) result diff --git a/GI/Gio/Objects/UnixCredentialsMessage.hs-boot b/GI/Gio/Objects/UnixCredentialsMessage.hs-boot --- a/GI/Gio/Objects/UnixCredentialsMessage.hs-boot +++ b/GI/Gio/Objects/UnixCredentialsMessage.hs-boot @@ -12,3 +12,4 @@ 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 --- a/GI/Gio/Objects/UnixFDList.hs +++ b/GI/Gio/Objects/UnixFDList.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,14 +18,17 @@ -- * Methods -- ** unixFDListAppend + UnixFDListAppendMethodInfo , unixFDListAppend , -- ** unixFDListGet + UnixFDListGetMethodInfo , unixFDListGet , -- ** unixFDListGetLength + UnixFDListGetLengthMethodInfo , unixFDListGetLength , @@ -37,10 +41,12 @@ -- ** unixFDListPeekFds + UnixFDListPeekFdsMethodInfo , unixFDListPeekFds , -- ** unixFDListStealFds + UnixFDListStealFdsMethodInfo , unixFDListStealFds , @@ -80,17 +86,54 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixFDListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixFDList::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "UnixFDList" -- throws : False -- Skip return : False @@ -101,7 +144,7 @@ unixFDListNew :: (MonadIO m) => - m UnixFDList + m UnixFDList -- result unixFDListNew = liftIO $ do result <- g_unix_fd_list_new checkUnexpectedReturnNULL "g_unix_fd_list_new" result @@ -110,9 +153,8 @@ -- method UnixFDList::new_from_array -- method type : Constructor --- Args : [Arg {argName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixFDList" -- throws : False -- Skip return : False @@ -125,12 +167,12 @@ unixFDListNewFromArray :: (MonadIO m) => - [Int32] -> -- fds - m UnixFDList + [Int32] -- fds + -> m UnixFDList -- result unixFDListNewFromArray fds = liftIO $ do - let n_fds = fromIntegral $ length fds + let nFds = fromIntegral $ length fds fds' <- packStorableArray fds - result <- g_unix_fd_list_new_from_array fds' n_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' @@ -138,9 +180,8 @@ -- method UnixFDList::append -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -154,9 +195,9 @@ unixFDListAppend :: (MonadIO m, UnixFDListK a) => - a -> -- _obj - Int32 -> -- fd - m Int32 + a -- _obj + -> Int32 -- fd + -> m Int32 -- result unixFDListAppend _obj fd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -167,11 +208,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : True -- Skip return : False @@ -185,24 +229,27 @@ unixFDListGet :: (MonadIO m, UnixFDListK a) => - a -> -- _obj - Int32 -> -- index_ - m Int32 -unixFDListGet _obj index_ = liftIO $ do + 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_ + 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -214,19 +261,22 @@ unixFDListGetLength :: (MonadIO m, UnixFDListK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TInt32) -- throws : False -- Skip return : False @@ -239,8 +289,8 @@ unixFDListPeekFds :: (MonadIO m, UnixFDListK a) => - a -> -- _obj - m [Int32] + a -- _obj + -> m [Int32] -- result unixFDListPeekFds _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Int32) @@ -252,11 +302,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TInt32) -- throws : False -- Skip return : False @@ -269,8 +322,8 @@ unixFDListStealFds :: (MonadIO m, UnixFDListK a) => - a -> -- _obj - m [Int32] + a -- _obj + -> m [Int32] -- result unixFDListStealFds _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Int32) @@ -282,5 +335,9 @@ 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 --- a/GI/Gio/Objects/UnixFDList.hs-boot +++ b/GI/Gio/Objects/UnixFDList.hs-boot @@ -11,3 +11,8 @@ 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 --- a/GI/Gio/Objects/UnixFDMessage.hs +++ b/GI/Gio/Objects/UnixFDMessage.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** unixFDMessageAppendFd + UnixFDMessageAppendFdMethodInfo , unixFDMessageAppendFd , -- ** unixFDMessageGetFdList + UnixFDMessageGetFdListMethodInfo , unixFDMessageGetFdList , @@ -33,6 +36,7 @@ -- ** unixFDMessageStealFds + UnixFDMessageStealFdsMethodInfo , unixFDMessageStealFds , @@ -81,6 +85,46 @@ 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] @@ -97,22 +141,21 @@ type AttrSetTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDListK type AttrBaseTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDMessageK type AttrGetType UnixFDMessageFdListPropertyInfo = UnixFDList - type AttrLabel UnixFDMessageFdListPropertyInfo = "UnixFDMessage::fd-list" + type AttrLabel UnixFDMessageFdListPropertyInfo = "fd-list" attrGet _ = getUnixFDMessageFdList attrSet _ = undefined attrConstruct _ = constructUnixFDMessageFdList type instance AttributeList UnixFDMessage = UnixFDMessageAttributeList -type UnixFDMessageAttributeList = ('[ '("fd-list", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)]) +type UnixFDMessageAttributeList = ('[ '("fdList", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixFDMessage = UnixFDMessageSignalList -type UnixFDMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixFDMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixFDMessage::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "UnixFDMessage" -- throws : False -- Skip return : False @@ -123,7 +166,7 @@ unixFDMessageNew :: (MonadIO m) => - m UnixFDMessage + m UnixFDMessage -- result unixFDMessageNew = liftIO $ do result <- g_unix_fd_message_new checkUnexpectedReturnNULL "g_unix_fd_message_new" result @@ -132,9 +175,8 @@ -- method UnixFDMessage::new_with_fd_list -- method type : Constructor --- Args : [Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixFDMessage" -- throws : False -- Skip return : False @@ -146,21 +188,20 @@ unixFDMessageNewWithFdList :: (MonadIO m, UnixFDListK a) => - a -> -- fd_list - m UnixFDMessage -unixFDMessageNewWithFdList fd_list = liftIO $ do - let fd_list' = unsafeManagedPtrCastPtr fd_list - result <- g_unix_fd_message_new_with_fd_list fd_list' + 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 fd_list + touchManagedPtr fdList return result' -- method UnixFDMessage::append_fd -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -174,9 +215,9 @@ unixFDMessageAppendFd :: (MonadIO m, UnixFDMessageK a) => - a -> -- _obj - Int32 -> -- fd - m () + a -- _obj + -> Int32 -- fd + -> m () -- result unixFDMessageAppendFd _obj fd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -187,11 +228,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixFDList" -- throws : False -- Skip return : False @@ -203,8 +247,8 @@ unixFDMessageGetFdList :: (MonadIO m, UnixFDMessageK a) => - a -> -- _obj - m UnixFDList + a -- _obj + -> m UnixFDList -- result unixFDMessageGetFdList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_fd_message_get_fd_list _obj' @@ -213,11 +257,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TInt32) -- throws : False -- Skip return : False @@ -230,8 +277,8 @@ unixFDMessageStealFds :: (MonadIO m, UnixFDMessageK a) => - a -> -- _obj - m [Int32] + a -- _obj + -> m [Int32] -- result unixFDMessageStealFds _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj length_ <- allocMem :: IO (Ptr Int32) @@ -243,5 +290,9 @@ 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 --- a/GI/Gio/Objects/UnixFDMessage.hs-boot +++ b/GI/Gio/Objects/UnixFDMessage.hs-boot @@ -12,3 +12,6 @@ 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 --- a/GI/Gio/Objects/UnixInputStream.hs +++ b/GI/Gio/Objects/UnixInputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** unixInputStreamGetCloseFd + UnixInputStreamGetCloseFdMethodInfo , unixInputStreamGetCloseFd , -- ** unixInputStreamGetFd + UnixInputStreamGetFdMethodInfo , unixInputStreamGetFd , @@ -29,6 +32,7 @@ -- ** unixInputStreamSetCloseFd + UnixInputStreamSetCloseFdMethodInfo , unixInputStreamSetCloseFd , @@ -84,6 +88,64 @@ 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] @@ -103,7 +165,7 @@ type AttrSetTypeConstraint UnixInputStreamCloseFdPropertyInfo = (~) Bool type AttrBaseTypeConstraint UnixInputStreamCloseFdPropertyInfo = UnixInputStreamK type AttrGetType UnixInputStreamCloseFdPropertyInfo = Bool - type AttrLabel UnixInputStreamCloseFdPropertyInfo = "UnixInputStream::close-fd" + type AttrLabel UnixInputStreamCloseFdPropertyInfo = "close-fd" attrGet _ = getUnixInputStreamCloseFd attrSet _ = setUnixInputStreamCloseFd attrConstruct _ = constructUnixInputStreamCloseFd @@ -124,22 +186,21 @@ type AttrSetTypeConstraint UnixInputStreamFdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint UnixInputStreamFdPropertyInfo = UnixInputStreamK type AttrGetType UnixInputStreamFdPropertyInfo = Int32 - type AttrLabel UnixInputStreamFdPropertyInfo = "UnixInputStream::fd" + type AttrLabel UnixInputStreamFdPropertyInfo = "fd" attrGet _ = getUnixInputStreamFd attrSet _ = undefined attrConstruct _ = constructUnixInputStreamFd type instance AttributeList UnixInputStream = UnixInputStreamAttributeList -type UnixInputStreamAttributeList = ('[ '("close-fd", UnixInputStreamCloseFdPropertyInfo), '("fd", UnixInputStreamFdPropertyInfo)] :: [(Symbol, *)]) +type UnixInputStreamAttributeList = ('[ '("closeFd", UnixInputStreamCloseFdPropertyInfo), '("fd", UnixInputStreamFdPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixInputStream = UnixInputStreamSignalList -type UnixInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixInputStream::new -- method type : Constructor --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, 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 : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixInputStream" -- throws : False -- Skip return : False @@ -152,21 +213,20 @@ unixInputStreamNew :: (MonadIO m) => - Int32 -> -- fd - Bool -> -- close_fd - m UnixInputStream -unixInputStreamNew fd close_fd = liftIO $ do - let close_fd' = (fromIntegral . fromEnum) close_fd - result <- g_unix_input_stream_new fd close_fd' + 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 {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -178,8 +238,8 @@ unixInputStreamGetCloseFd :: (MonadIO m, UnixInputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result unixInputStreamGetCloseFd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_input_stream_get_close_fd _obj' @@ -187,11 +247,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -203,19 +266,22 @@ unixInputStreamGetFd :: (MonadIO m, UnixInputStreamK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,14 +294,18 @@ unixInputStreamSetCloseFd :: (MonadIO m, UnixInputStreamK a) => - a -> -- _obj - Bool -> -- close_fd - m () -unixInputStreamSetCloseFd _obj close_fd = liftIO $ do + a -- _obj + -> Bool -- closeFd + -> m () -- result +unixInputStreamSetCloseFd _obj closeFd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let close_fd' = (fromIntegral . fromEnum) close_fd - g_unix_input_stream_set_close_fd _obj' close_fd' + 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 --- a/GI/Gio/Objects/UnixInputStream.hs-boot +++ b/GI/Gio/Objects/UnixInputStream.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/UnixMountMonitor.hs +++ b/GI/Gio/Objects/UnixMountMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -25,6 +26,7 @@ -- ** unixMountMonitorSetRateLimit + UnixMountMonitorSetRateLimitMethodInfo , unixMountMonitorSetRateLimit , @@ -91,6 +93,40 @@ 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 () @@ -181,13 +217,12 @@ connectSignal _ = connectUnixMountMonitorMountsChanged type instance SignalList UnixMountMonitor = UnixMountMonitorSignalList -type UnixMountMonitorSignalList = ('[ '("mountpoints-changed", UnixMountMonitorMountpointsChangedSignalInfo), '("mounts-changed", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixMountMonitorSignalList = ('[ '("mountpointsChanged", UnixMountMonitorMountpointsChangedSignalInfo), '("mountsChanged", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixMountMonitor::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "UnixMountMonitor" -- throws : False -- Skip return : False @@ -198,7 +233,7 @@ {-# DEPRECATED unixMountMonitorNew ["(Since version 2.44)","Use g_unix_mount_monitor_get() instead."]#-} unixMountMonitorNew :: (MonadIO m) => - m UnixMountMonitor + m UnixMountMonitor -- result unixMountMonitorNew = liftIO $ do result <- g_unix_mount_monitor_new checkUnexpectedReturnNULL "g_unix_mount_monitor_new" result @@ -207,9 +242,8 @@ -- method UnixMountMonitor::set_rate_limit -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit_msec", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -222,20 +256,23 @@ {-# DEPRECATED unixMountMonitorSetRateLimit ["(Since version 2.44)","This function does nothing. Don't call it."]#-} unixMountMonitorSetRateLimit :: (MonadIO m, UnixMountMonitorK a) => - a -> -- _obj - Int32 -> -- limit_msec - m () -unixMountMonitorSetRateLimit _obj limit_msec = liftIO $ do + a -- _obj + -> Int32 -- limitMsec + -> m () -- result +unixMountMonitorSetRateLimit _obj limitMsec = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - g_unix_mount_monitor_set_rate_limit _obj' limit_msec + 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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "UnixMountMonitor" -- throws : False -- Skip return : False @@ -246,7 +283,7 @@ unixMountMonitorGet :: (MonadIO m) => - m UnixMountMonitor + m UnixMountMonitor -- result unixMountMonitorGet = liftIO $ do result <- g_unix_mount_monitor_get checkUnexpectedReturnNULL "g_unix_mount_monitor_get" result diff --git a/GI/Gio/Objects/UnixMountMonitor.hs-boot b/GI/Gio/Objects/UnixMountMonitor.hs-boot --- a/GI/Gio/Objects/UnixMountMonitor.hs-boot +++ b/GI/Gio/Objects/UnixMountMonitor.hs-boot @@ -13,3 +13,4 @@ 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 --- a/GI/Gio/Objects/UnixOutputStream.hs +++ b/GI/Gio/Objects/UnixOutputStream.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** unixOutputStreamGetCloseFd + UnixOutputStreamGetCloseFdMethodInfo , unixOutputStreamGetCloseFd , -- ** unixOutputStreamGetFd + UnixOutputStreamGetFdMethodInfo , unixOutputStreamGetFd , @@ -29,6 +32,7 @@ -- ** unixOutputStreamSetCloseFd + UnixOutputStreamSetCloseFdMethodInfo , unixOutputStreamSetCloseFd , @@ -84,6 +88,68 @@ 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] @@ -103,7 +169,7 @@ type AttrSetTypeConstraint UnixOutputStreamCloseFdPropertyInfo = (~) Bool type AttrBaseTypeConstraint UnixOutputStreamCloseFdPropertyInfo = UnixOutputStreamK type AttrGetType UnixOutputStreamCloseFdPropertyInfo = Bool - type AttrLabel UnixOutputStreamCloseFdPropertyInfo = "UnixOutputStream::close-fd" + type AttrLabel UnixOutputStreamCloseFdPropertyInfo = "close-fd" attrGet _ = getUnixOutputStreamCloseFd attrSet _ = setUnixOutputStreamCloseFd attrConstruct _ = constructUnixOutputStreamCloseFd @@ -124,22 +190,21 @@ type AttrSetTypeConstraint UnixOutputStreamFdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint UnixOutputStreamFdPropertyInfo = UnixOutputStreamK type AttrGetType UnixOutputStreamFdPropertyInfo = Int32 - type AttrLabel UnixOutputStreamFdPropertyInfo = "UnixOutputStream::fd" + type AttrLabel UnixOutputStreamFdPropertyInfo = "fd" attrGet _ = getUnixOutputStreamFd attrSet _ = undefined attrConstruct _ = constructUnixOutputStreamFd type instance AttributeList UnixOutputStream = UnixOutputStreamAttributeList -type UnixOutputStreamAttributeList = ('[ '("close-fd", UnixOutputStreamCloseFdPropertyInfo), '("fd", UnixOutputStreamFdPropertyInfo)] :: [(Symbol, *)]) +type UnixOutputStreamAttributeList = ('[ '("closeFd", UnixOutputStreamCloseFdPropertyInfo), '("fd", UnixOutputStreamFdPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixOutputStream = UnixOutputStreamSignalList -type UnixOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixOutputStream::new -- method type : Constructor --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, 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 : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixOutputStream" -- throws : False -- Skip return : False @@ -152,21 +217,20 @@ unixOutputStreamNew :: (MonadIO m) => - Int32 -> -- fd - Bool -> -- close_fd - m UnixOutputStream -unixOutputStreamNew fd close_fd = liftIO $ do - let close_fd' = (fromIntegral . fromEnum) close_fd - result <- g_unix_output_stream_new fd close_fd' + 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 {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -178,8 +242,8 @@ unixOutputStreamGetCloseFd :: (MonadIO m, UnixOutputStreamK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result unixOutputStreamGetCloseFd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_output_stream_get_close_fd _obj' @@ -187,11 +251,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -203,19 +270,22 @@ unixOutputStreamGetFd :: (MonadIO m, UnixOutputStreamK a) => - a -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,14 +298,18 @@ unixOutputStreamSetCloseFd :: (MonadIO m, UnixOutputStreamK a) => - a -> -- _obj - Bool -> -- close_fd - m () -unixOutputStreamSetCloseFd _obj close_fd = liftIO $ do + a -- _obj + -> Bool -- closeFd + -> m () -- result +unixOutputStreamSetCloseFd _obj closeFd = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - let close_fd' = (fromIntegral . fromEnum) close_fd - g_unix_output_stream_set_close_fd _obj' close_fd' + 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 --- a/GI/Gio/Objects/UnixOutputStream.hs-boot +++ b/GI/Gio/Objects/UnixOutputStream.hs-boot @@ -13,3 +13,6 @@ 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 --- a/GI/Gio/Objects/UnixSocketAddress.hs +++ b/GI/Gio/Objects/UnixSocketAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,18 +22,22 @@ -- ** unixSocketAddressGetAddressType + UnixSocketAddressGetAddressTypeMethodInfo, unixSocketAddressGetAddressType , -- ** unixSocketAddressGetIsAbstract + UnixSocketAddressGetIsAbstractMethodInfo, unixSocketAddressGetIsAbstract , -- ** unixSocketAddressGetPath + UnixSocketAddressGetPathMethodInfo , unixSocketAddressGetPath , -- ** unixSocketAddressGetPathLen + UnixSocketAddressGetPathLenMethodInfo , unixSocketAddressGetPathLen , @@ -111,6 +116,48 @@ 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] @@ -127,7 +174,7 @@ type AttrSetTypeConstraint UnixSocketAddressAbstractPropertyInfo = (~) Bool type AttrBaseTypeConstraint UnixSocketAddressAbstractPropertyInfo = UnixSocketAddressK type AttrGetType UnixSocketAddressAbstractPropertyInfo = Bool - type AttrLabel UnixSocketAddressAbstractPropertyInfo = "UnixSocketAddress::abstract" + type AttrLabel UnixSocketAddressAbstractPropertyInfo = "abstract" attrGet _ = getUnixSocketAddressAbstract attrSet _ = undefined attrConstruct _ = constructUnixSocketAddressAbstract @@ -148,7 +195,7 @@ type AttrSetTypeConstraint UnixSocketAddressAddressTypePropertyInfo = (~) UnixSocketAddressType type AttrBaseTypeConstraint UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressK type AttrGetType UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressType - type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "UnixSocketAddress::address-type" + type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "address-type" attrGet _ = getUnixSocketAddressAddressType attrSet _ = undefined attrConstruct _ = constructUnixSocketAddressAddressType @@ -169,7 +216,7 @@ type AttrSetTypeConstraint UnixSocketAddressPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint UnixSocketAddressPathPropertyInfo = UnixSocketAddressK type AttrGetType UnixSocketAddressPathPropertyInfo = T.Text - type AttrLabel UnixSocketAddressPathPropertyInfo = "UnixSocketAddress::path" + type AttrLabel UnixSocketAddressPathPropertyInfo = "path" attrGet _ = getUnixSocketAddressPath attrSet _ = undefined attrConstruct _ = constructUnixSocketAddressPath @@ -190,22 +237,21 @@ type AttrSetTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = (~) ByteString type AttrBaseTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = UnixSocketAddressK type AttrGetType UnixSocketAddressPathAsArrayPropertyInfo = ByteString - type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "UnixSocketAddress::path-as-array" + type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "path-as-array" attrGet _ = getUnixSocketAddressPathAsArray attrSet _ = undefined attrConstruct _ = constructUnixSocketAddressPathAsArray type instance AttributeList UnixSocketAddress = UnixSocketAddressAttributeList -type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("address-type", UnixSocketAddressAddressTypePropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("path-as-array", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)]) +type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("addressType", UnixSocketAddressAddressTypePropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("pathAsArray", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)]) type instance SignalList UnixSocketAddress = UnixSocketAddressSignalList -type UnixSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type UnixSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method UnixSocketAddress::new -- method type : Constructor --- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixSocketAddress" -- throws : False -- Skip return : False @@ -217,8 +263,8 @@ unixSocketAddressNew :: (MonadIO m) => - T.Text -> -- path - m UnixSocketAddress + T.Text -- path + -> m UnixSocketAddress -- result unixSocketAddressNew path = liftIO $ do path' <- textToCString path result <- g_unix_socket_address_new path' @@ -229,9 +275,8 @@ -- method UnixSocketAddress::new_abstract -- method type : Constructor --- Args : [Arg {argName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "path_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixSocketAddress" -- throws : False -- Skip return : False @@ -244,12 +289,12 @@ {-# DEPRECATED unixSocketAddressNewAbstract ["Use g_unix_socket_address_new_with_type()."]#-} unixSocketAddressNewAbstract :: (MonadIO m) => - [Int8] -> -- path - m UnixSocketAddress + [Int8] -- path + -> m UnixSocketAddress -- result unixSocketAddressNewAbstract path = liftIO $ do - let path_len = fromIntegral $ length path + let pathLen = fromIntegral $ length path path' <- packStorableArray path - result <- g_unix_socket_address_new_abstract path' path_len + result <- g_unix_socket_address_new_abstract path' pathLen checkUnexpectedReturnNULL "g_unix_socket_address_new_abstract" result result' <- (wrapObject UnixSocketAddress) result freeMem path' @@ -257,9 +302,8 @@ -- method UnixSocketAddress::new_with_type -- method type : Constructor --- Args : [Arg {argName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "UnixSocketAddressType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "path_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "UnixSocketAddressType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixSocketAddress" -- throws : False -- Skip return : False @@ -273,14 +317,14 @@ unixSocketAddressNewWithType :: (MonadIO m) => - [Int8] -> -- path - UnixSocketAddressType -> -- type - m UnixSocketAddress + [Int8] -- path + -> UnixSocketAddressType -- type_ + -> m UnixSocketAddress -- result unixSocketAddressNewWithType path type_ = liftIO $ do - let path_len = fromIntegral $ length path + let pathLen = fromIntegral $ length path path' <- packStorableArray path let type_' = (fromIntegral . fromEnum) type_ - result <- g_unix_socket_address_new_with_type path' path_len 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' @@ -288,9 +332,8 @@ -- method UnixSocketAddress::get_address_type -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "UnixSocketAddressType" -- throws : False -- Skip return : False @@ -302,8 +345,8 @@ unixSocketAddressGetAddressType :: (MonadIO m, UnixSocketAddressK a) => - a -> -- _obj - m UnixSocketAddressType + a -- _obj + -> m UnixSocketAddressType -- result unixSocketAddressGetAddressType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_socket_address_get_address_type _obj' @@ -311,11 +354,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -327,8 +373,8 @@ {-# DEPRECATED unixSocketAddressGetIsAbstract ["Use g_unix_socket_address_get_address_type()"]#-} unixSocketAddressGetIsAbstract :: (MonadIO m, UnixSocketAddressK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result unixSocketAddressGetIsAbstract _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_socket_address_get_is_abstract _obj' @@ -336,11 +382,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -352,8 +401,8 @@ unixSocketAddressGetPath :: (MonadIO m, UnixSocketAddressK a) => - a -> -- _obj - m T.Text + a -- _obj + -> m T.Text -- result unixSocketAddressGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_unix_socket_address_get_path _obj' @@ -362,11 +411,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False @@ -378,19 +430,22 @@ unixSocketAddressGetPathLen :: (MonadIO m, UnixSocketAddressK a) => - a -> -- _obj - m Word64 + 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 : [] --- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -401,7 +456,7 @@ unixSocketAddressAbstractNamesSupported :: (MonadIO m) => - m Bool + m Bool -- result unixSocketAddressAbstractNamesSupported = liftIO $ do result <- g_unix_socket_address_abstract_names_supported let result' = (/= 0) result diff --git a/GI/Gio/Objects/UnixSocketAddress.hs-boot b/GI/Gio/Objects/UnixSocketAddress.hs-boot --- a/GI/Gio/Objects/UnixSocketAddress.hs-boot +++ b/GI/Gio/Objects/UnixSocketAddress.hs-boot @@ -15,3 +15,7 @@ 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 --- a/GI/Gio/Objects/Vfs.hs +++ b/GI/Gio/Objects/Vfs.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,10 +22,12 @@ -- ** vfsGetFileForPath + VfsGetFileForPathMethodInfo , vfsGetFileForPath , -- ** vfsGetFileForUri + VfsGetFileForUriMethodInfo , vfsGetFileForUri , @@ -33,14 +36,17 @@ -- ** vfsGetSupportedUriSchemes + VfsGetSupportedUriSchemesMethodInfo , vfsGetSupportedUriSchemes , -- ** vfsIsActive + VfsIsActiveMethodInfo , vfsIsActive , -- ** vfsParseName + VfsParseNameMethodInfo , vfsParseName , @@ -80,17 +86,54 @@ 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type VfsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Vfs::get_file_for_path -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -103,9 +146,9 @@ vfsGetFileForPath :: (MonadIO m, VfsK a) => - a -> -- _obj - T.Text -> -- path - m File + a -- _obj + -> T.Text -- path + -> m File -- result vfsGetFileForPath _obj path = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj path' <- textToCString path @@ -116,11 +159,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -133,9 +179,9 @@ vfsGetFileForUri :: (MonadIO m, VfsK a) => - a -> -- _obj - T.Text -> -- uri - m File + a -- _obj + -> T.Text -- uri + -> m File -- result vfsGetFileForUri _obj uri = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uri' <- textToCString uri @@ -146,11 +192,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -162,8 +211,8 @@ vfsGetSupportedUriSchemes :: (MonadIO m, VfsK a) => - a -> -- _obj - m [T.Text] + a -- _obj + -> m [T.Text] -- result vfsGetSupportedUriSchemes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_vfs_get_supported_uri_schemes _obj' @@ -172,11 +221,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -188,8 +240,8 @@ vfsIsActive :: (MonadIO m, VfsK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result vfsIsActive _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_vfs_is_active _obj' @@ -197,11 +249,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "File" -- throws : False -- Skip return : False @@ -214,24 +269,27 @@ vfsParseName :: (MonadIO m, VfsK a) => - a -> -- _obj - T.Text -> -- parse_name - m File -vfsParseName _obj parse_name = liftIO $ do + a -- _obj + -> T.Text -- parseName + -> m File -- result +vfsParseName _obj parseName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - parse_name' <- textToCString parse_name - result <- g_vfs_parse_name _obj' parse_name' + parseName' <- textToCString parseName + result <- g_vfs_parse_name _obj' parseName' checkUnexpectedReturnNULL "g_vfs_parse_name" result result' <- (wrapObject File) result touchManagedPtr _obj - freeMem parse_name' + 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 : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Vfs" -- throws : False -- Skip return : False @@ -242,7 +300,7 @@ vfsGetDefault :: (MonadIO m) => - m Vfs + m Vfs -- result vfsGetDefault = liftIO $ do result <- g_vfs_get_default checkUnexpectedReturnNULL "g_vfs_get_default" result @@ -253,7 +311,6 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "Vfs" -- throws : False -- Skip return : False @@ -264,7 +321,7 @@ vfsGetLocal :: (MonadIO m) => - m Vfs + m Vfs -- result vfsGetLocal = liftIO $ do result <- g_vfs_get_local checkUnexpectedReturnNULL "g_vfs_get_local" result diff --git a/GI/Gio/Objects/Vfs.hs-boot b/GI/Gio/Objects/Vfs.hs-boot --- a/GI/Gio/Objects/Vfs.hs-boot +++ b/GI/Gio/Objects/Vfs.hs-boot @@ -11,3 +11,8 @@ 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 --- a/GI/Gio/Objects/VolumeMonitor.hs +++ b/GI/Gio/Objects/VolumeMonitor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -25,22 +26,27 @@ -- ** volumeMonitorGetConnectedDrives + VolumeMonitorGetConnectedDrivesMethodInfo, volumeMonitorGetConnectedDrives , -- ** volumeMonitorGetMountForUuid + VolumeMonitorGetMountForUuidMethodInfo , volumeMonitorGetMountForUuid , -- ** volumeMonitorGetMounts + VolumeMonitorGetMountsMethodInfo , volumeMonitorGetMounts , -- ** volumeMonitorGetVolumeForUuid + VolumeMonitorGetVolumeForUuidMethodInfo , volumeMonitorGetVolumeForUuid , -- ** volumeMonitorGetVolumes + VolumeMonitorGetVolumesMethodInfo , volumeMonitorGetVolumes , @@ -227,6 +233,44 @@ 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 -> @@ -795,13 +839,12 @@ connectSignal _ = connectVolumeMonitorVolumeRemoved type instance SignalList VolumeMonitor = VolumeMonitorSignalList -type VolumeMonitorSignalList = ('[ '("drive-changed", VolumeMonitorDriveChangedSignalInfo), '("drive-connected", VolumeMonitorDriveConnectedSignalInfo), '("drive-disconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("drive-eject-button", VolumeMonitorDriveEjectButtonSignalInfo), '("drive-stop-button", VolumeMonitorDriveStopButtonSignalInfo), '("mount-added", VolumeMonitorMountAddedSignalInfo), '("mount-changed", VolumeMonitorMountChangedSignalInfo), '("mount-pre-unmount", VolumeMonitorMountPreUnmountSignalInfo), '("mount-removed", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("volume-added", VolumeMonitorVolumeAddedSignalInfo), '("volume-changed", VolumeMonitorVolumeChangedSignalInfo), '("volume-removed", VolumeMonitorVolumeRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +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 {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "Drive") -- throws : False -- Skip return : False @@ -813,8 +856,8 @@ volumeMonitorGetConnectedDrives :: (MonadIO m, VolumeMonitorK a) => - a -> -- _obj - m [Drive] + a -- _obj + -> m [Drive] -- result volumeMonitorGetConnectedDrives _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_monitor_get_connected_drives _obj' @@ -825,11 +868,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Mount" -- throws : False -- Skip return : False @@ -842,9 +888,9 @@ volumeMonitorGetMountForUuid :: (MonadIO m, VolumeMonitorK a) => - a -> -- _obj - T.Text -> -- uuid - m Mount + a -- _obj + -> T.Text -- uuid + -> m Mount -- result volumeMonitorGetMountForUuid _obj uuid = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uuid' <- textToCString uuid @@ -855,11 +901,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "Mount") -- throws : False -- Skip return : False @@ -871,8 +920,8 @@ volumeMonitorGetMounts :: (MonadIO m, VolumeMonitorK a) => - a -> -- _obj - m [Mount] + a -- _obj + -> m [Mount] -- result volumeMonitorGetMounts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_monitor_get_mounts _obj' @@ -883,11 +932,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Volume" -- throws : False -- Skip return : False @@ -900,9 +952,9 @@ volumeMonitorGetVolumeForUuid :: (MonadIO m, VolumeMonitorK a) => - a -> -- _obj - T.Text -> -- uuid - m Volume + a -- _obj + -> T.Text -- uuid + -> m Volume -- result volumeMonitorGetVolumeForUuid _obj uuid = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj uuid' <- textToCString uuid @@ -913,11 +965,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "Volume") -- throws : False -- Skip return : False @@ -929,8 +984,8 @@ volumeMonitorGetVolumes :: (MonadIO m, VolumeMonitorK a) => - a -> -- _obj - m [Volume] + a -- _obj + -> m [Volume] -- result volumeMonitorGetVolumes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_volume_monitor_get_volumes _obj' @@ -941,11 +996,14 @@ 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 {argName = "mount", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "mount", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "mount", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Volume" -- throws : False -- Skip return : False @@ -957,8 +1015,8 @@ {-# 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 + a -- mount + -> m Volume -- result volumeMonitorAdoptOrphanMount mount = liftIO $ do let mount' = unsafeManagedPtrCastPtr mount result <- g_volume_monitor_adopt_orphan_mount mount' @@ -971,7 +1029,6 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "VolumeMonitor" -- throws : False -- Skip return : False @@ -982,7 +1039,7 @@ volumeMonitorGet :: (MonadIO m) => - m VolumeMonitor + m VolumeMonitor -- result volumeMonitorGet = liftIO $ do result <- g_volume_monitor_get checkUnexpectedReturnNULL "g_volume_monitor_get" result diff --git a/GI/Gio/Objects/VolumeMonitor.hs-boot b/GI/Gio/Objects/VolumeMonitor.hs-boot --- a/GI/Gio/Objects/VolumeMonitor.hs-boot +++ b/GI/Gio/Objects/VolumeMonitor.hs-boot @@ -23,3 +23,8 @@ 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 --- a/GI/Gio/Objects/ZlibCompressor.hs +++ b/GI/Gio/Objects/ZlibCompressor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** zlibCompressorGetFileInfo + ZlibCompressorGetFileInfoMethodInfo , zlibCompressorGetFileInfo , @@ -25,6 +27,7 @@ -- ** zlibCompressorSetFileInfo + ZlibCompressorSetFileInfoMethodInfo , zlibCompressorSetFileInfo , @@ -86,6 +89,43 @@ 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] @@ -105,7 +145,7 @@ type AttrSetTypeConstraint ZlibCompressorFileInfoPropertyInfo = FileInfoK type AttrBaseTypeConstraint ZlibCompressorFileInfoPropertyInfo = ZlibCompressorK type AttrGetType ZlibCompressorFileInfoPropertyInfo = FileInfo - type AttrLabel ZlibCompressorFileInfoPropertyInfo = "ZlibCompressor::file-info" + type AttrLabel ZlibCompressorFileInfoPropertyInfo = "file-info" attrGet _ = getZlibCompressorFileInfo attrSet _ = setZlibCompressorFileInfo attrConstruct _ = constructZlibCompressorFileInfo @@ -126,7 +166,7 @@ type AttrSetTypeConstraint ZlibCompressorFormatPropertyInfo = (~) ZlibCompressorFormat type AttrBaseTypeConstraint ZlibCompressorFormatPropertyInfo = ZlibCompressorK type AttrGetType ZlibCompressorFormatPropertyInfo = ZlibCompressorFormat - type AttrLabel ZlibCompressorFormatPropertyInfo = "ZlibCompressor::format" + type AttrLabel ZlibCompressorFormatPropertyInfo = "format" attrGet _ = getZlibCompressorFormat attrSet _ = undefined attrConstruct _ = constructZlibCompressorFormat @@ -147,22 +187,21 @@ type AttrSetTypeConstraint ZlibCompressorLevelPropertyInfo = (~) Int32 type AttrBaseTypeConstraint ZlibCompressorLevelPropertyInfo = ZlibCompressorK type AttrGetType ZlibCompressorLevelPropertyInfo = Int32 - type AttrLabel ZlibCompressorLevelPropertyInfo = "ZlibCompressor::level" + type AttrLabel ZlibCompressorLevelPropertyInfo = "level" attrGet _ = getZlibCompressorLevel attrSet _ = undefined attrConstruct _ = constructZlibCompressorLevel type instance AttributeList ZlibCompressor = ZlibCompressorAttributeList -type ZlibCompressorAttributeList = ('[ '("file-info", ZlibCompressorFileInfoPropertyInfo), '("format", ZlibCompressorFormatPropertyInfo), '("level", ZlibCompressorLevelPropertyInfo)] :: [(Symbol, *)]) +type ZlibCompressorAttributeList = ('[ '("fileInfo", ZlibCompressorFileInfoPropertyInfo), '("format", ZlibCompressorFormatPropertyInfo), '("level", ZlibCompressorLevelPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ZlibCompressor = ZlibCompressorSignalList -type ZlibCompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ZlibCompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ZlibCompressor::new -- method type : Constructor --- Args : [Arg {argName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ZlibCompressor" -- throws : False -- Skip return : False @@ -175,9 +214,9 @@ zlibCompressorNew :: (MonadIO m) => - ZlibCompressorFormat -> -- format - Int32 -> -- level - m ZlibCompressor + ZlibCompressorFormat -- format + -> Int32 -- level + -> m ZlibCompressor -- result zlibCompressorNew format level = liftIO $ do let format' = (fromIntegral . fromEnum) format result <- g_zlib_compressor_new format' level @@ -187,9 +226,8 @@ -- method ZlibCompressor::get_file_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : False -- Skip return : False @@ -201,8 +239,8 @@ zlibCompressorGetFileInfo :: (MonadIO m, ZlibCompressorK a) => - a -> -- _obj - m FileInfo + a -- _obj + -> m FileInfo -- result zlibCompressorGetFileInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_zlib_compressor_get_file_info _obj' @@ -211,11 +249,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -228,19 +269,23 @@ zlibCompressorSetFileInfo :: (MonadIO m, ZlibCompressorK a, FileInfoK b) => - a -> -- _obj - Maybe (b) -> -- file_info - m () -zlibCompressorSetFileInfo _obj file_info = liftIO $ do + a -- _obj + -> Maybe (b) -- fileInfo + -> m () -- result +zlibCompressorSetFileInfo _obj fileInfo = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeFile_info <- case file_info of + maybeFileInfo <- case fileInfo of Nothing -> return nullPtr - Just jFile_info -> do - let jFile_info' = unsafeManagedPtrCastPtr jFile_info - return jFile_info' - g_zlib_compressor_set_file_info _obj' maybeFile_info + Just jFileInfo -> do + let jFileInfo' = unsafeManagedPtrCastPtr jFileInfo + return jFileInfo' + g_zlib_compressor_set_file_info _obj' maybeFileInfo touchManagedPtr _obj - whenJust file_info touchManagedPtr + 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 --- a/GI/Gio/Objects/ZlibCompressor.hs-boot +++ b/GI/Gio/Objects/ZlibCompressor.hs-boot @@ -14,3 +14,5 @@ data ZlibCompressorFileInfoPropertyInfo data ZlibCompressorFormatPropertyInfo data ZlibCompressorLevelPropertyInfo +data ZlibCompressorGetFileInfoMethodInfo +data ZlibCompressorSetFileInfoMethodInfo diff --git a/GI/Gio/Objects/ZlibDecompressor.hs b/GI/Gio/Objects/ZlibDecompressor.hs --- a/GI/Gio/Objects/ZlibDecompressor.hs +++ b/GI/Gio/Objects/ZlibDecompressor.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,6 +18,7 @@ -- * Methods -- ** zlibDecompressorGetFileInfo + ZlibDecompressorGetFileInfoMethodInfo , zlibDecompressorGetFileInfo , @@ -74,6 +76,42 @@ 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] @@ -87,7 +125,7 @@ type AttrSetTypeConstraint ZlibDecompressorFileInfoPropertyInfo = (~) () type AttrBaseTypeConstraint ZlibDecompressorFileInfoPropertyInfo = ZlibDecompressorK type AttrGetType ZlibDecompressorFileInfoPropertyInfo = FileInfo - type AttrLabel ZlibDecompressorFileInfoPropertyInfo = "ZlibDecompressor::file-info" + type AttrLabel ZlibDecompressorFileInfoPropertyInfo = "file-info" attrGet _ = getZlibDecompressorFileInfo attrSet _ = undefined attrConstruct _ = undefined @@ -108,22 +146,21 @@ type AttrSetTypeConstraint ZlibDecompressorFormatPropertyInfo = (~) ZlibCompressorFormat type AttrBaseTypeConstraint ZlibDecompressorFormatPropertyInfo = ZlibDecompressorK type AttrGetType ZlibDecompressorFormatPropertyInfo = ZlibCompressorFormat - type AttrLabel ZlibDecompressorFormatPropertyInfo = "ZlibDecompressor::format" + type AttrLabel ZlibDecompressorFormatPropertyInfo = "format" attrGet _ = getZlibDecompressorFormat attrSet _ = undefined attrConstruct _ = constructZlibDecompressorFormat type instance AttributeList ZlibDecompressor = ZlibDecompressorAttributeList -type ZlibDecompressorAttributeList = ('[ '("file-info", ZlibDecompressorFileInfoPropertyInfo), '("format", ZlibDecompressorFormatPropertyInfo)] :: [(Symbol, *)]) +type ZlibDecompressorAttributeList = ('[ '("fileInfo", ZlibDecompressorFileInfoPropertyInfo), '("format", ZlibDecompressorFormatPropertyInfo)] :: [(Symbol, *)]) type instance SignalList ZlibDecompressor = ZlibDecompressorSignalList -type ZlibDecompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type ZlibDecompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method ZlibDecompressor::new -- method type : Constructor --- Args : [Arg {argName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "ZlibDecompressor" -- throws : False -- Skip return : False @@ -135,8 +172,8 @@ zlibDecompressorNew :: (MonadIO m) => - ZlibCompressorFormat -> -- format - m ZlibDecompressor + ZlibCompressorFormat -- format + -> m ZlibDecompressor -- result zlibDecompressorNew format = liftIO $ do let format' = (fromIntegral . fromEnum) format result <- g_zlib_decompressor_new format' @@ -146,9 +183,8 @@ -- method ZlibDecompressor::get_file_info -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "ZlibDecompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibDecompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "ZlibDecompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileInfo" -- throws : False -- Skip return : False @@ -160,8 +196,8 @@ zlibDecompressorGetFileInfo :: (MonadIO m, ZlibDecompressorK a) => - a -> -- _obj - m FileInfo + a -- _obj + -> m FileInfo -- result zlibDecompressorGetFileInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- g_zlib_decompressor_get_file_info _obj' @@ -169,5 +205,9 @@ 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 --- a/GI/Gio/Objects/ZlibDecompressor.hs-boot +++ b/GI/Gio/Objects/ZlibDecompressor.hs-boot @@ -13,3 +13,4 @@ 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 --- a/GI/Gio/Structs.hs +++ b/GI/Gio/Structs.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Gio/Structs/ActionEntry.hs b/GI/Gio/Structs/ActionEntry.hs --- a/GI/Gio/Structs/ActionEntry.hs +++ b/GI/Gio/Structs/ActionEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,6 +22,7 @@ -- * Exported types ActionEntry(..) , + newZeroActionEntry , noActionEntry , @@ -52,6 +54,10 @@ import GI.Gio.Callbacks newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) +-- | Construct a `ActionEntry` struct initialized to zero. +newZeroActionEntry :: MonadIO m => m ActionEntry +newZeroActionEntry = liftIO $ callocBytes 64 >>= wrapPtr ActionEntry + noActionEntry :: Maybe ActionEntry noActionEntry = Nothing @@ -76,5 +82,16 @@ return val' -- XXX Skipped getter for "ActionEntry:change_state" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +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/DBusAnnotationInfo.hs b/GI/Gio/Structs/DBusAnnotationInfo.hs --- a/GI/Gio/Structs/DBusAnnotationInfo.hs +++ b/GI/Gio/Structs/DBusAnnotationInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,22 @@ -- * Exported types DBusAnnotationInfo(..) , + newZeroDBusAnnotationInfo , noDBusAnnotationInfo , -- * Methods +-- ** dBusAnnotationInfoLookup + dBusAnnotationInfoLookup , + + -- ** dBusAnnotationInfoRef + DBusAnnotationInfoRefMethodInfo , dBusAnnotationInfoRef , -- ** dBusAnnotationInfoUnref + DBusAnnotationInfoUnrefMethodInfo , dBusAnnotationInfoUnref , @@ -64,6 +72,10 @@ 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 + noDBusAnnotationInfo :: Maybe DBusAnnotationInfo noDBusAnnotationInfo = Nothing @@ -93,9 +105,8 @@ -- method DBusAnnotationInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusAnnotationInfo" -- throws : False -- Skip return : False @@ -107,8 +118,8 @@ dBusAnnotationInfoRef :: (MonadIO m) => - DBusAnnotationInfo -> -- _obj - m DBusAnnotationInfo + DBusAnnotationInfo -- _obj + -> m DBusAnnotationInfo -- result dBusAnnotationInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_annotation_info_ref _obj' @@ -117,11 +128,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -133,12 +147,64 @@ dBusAnnotationInfoUnref :: (MonadIO m) => - DBusAnnotationInfo -> -- _obj - 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 : 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 --- a/GI/Gio/Structs/DBusAnnotationInfo.hs-boot +++ b/GI/Gio/Structs/DBusAnnotationInfo.hs-boot @@ -9,3 +9,5 @@ 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 --- a/GI/Gio/Structs/DBusArgInfo.hs +++ b/GI/Gio/Structs/DBusArgInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,18 @@ -- * Exported types DBusArgInfo(..) , + newZeroDBusArgInfo , noDBusArgInfo , -- * Methods -- ** dBusArgInfoRef + DBusArgInfoRefMethodInfo , dBusArgInfoRef , -- ** dBusArgInfoUnref + DBusArgInfoUnrefMethodInfo , dBusArgInfoUnref , @@ -64,6 +68,10 @@ 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 + noDBusArgInfo :: Maybe DBusArgInfo noDBusArgInfo = Nothing @@ -93,9 +101,8 @@ -- method DBusArgInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusArgInfo" -- throws : False -- Skip return : False @@ -107,8 +114,8 @@ dBusArgInfoRef :: (MonadIO m) => - DBusArgInfo -> -- _obj - m DBusArgInfo + DBusArgInfo -- _obj + -> m DBusArgInfo -- result dBusArgInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_arg_info_ref _obj' @@ -117,11 +124,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -133,12 +143,29 @@ dBusArgInfoUnref :: (MonadIO m) => - DBusArgInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusArgInfo.hs-boot +++ b/GI/Gio/Structs/DBusArgInfo.hs-boot @@ -9,3 +9,5 @@ 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 --- a/GI/Gio/Structs/DBusErrorEntry.hs +++ b/GI/Gio/Structs/DBusErrorEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,6 +13,7 @@ -- * Exported types DBusErrorEntry(..) , + newZeroDBusErrorEntry , noDBusErrorEntry , @@ -39,6 +41,10 @@ import GI.Gio.Callbacks newtype DBusErrorEntry = DBusErrorEntry (ForeignPtr DBusErrorEntry) +-- | Construct a `DBusErrorEntry` struct initialized to zero. +newZeroDBusErrorEntry :: MonadIO m => m DBusErrorEntry +newZeroDBusErrorEntry = liftIO $ callocBytes 16 >>= wrapPtr DBusErrorEntry + noDBusErrorEntry :: Maybe DBusErrorEntry noDBusErrorEntry = Nothing @@ -52,5 +58,16 @@ val <- peek (ptr `plusPtr` 8) :: IO CString val' <- cstringToText val return val' + +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/DBusInterfaceInfo.hs b/GI/Gio/Structs/DBusInterfaceInfo.hs --- a/GI/Gio/Structs/DBusInterfaceInfo.hs +++ b/GI/Gio/Structs/DBusInterfaceInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,39 +13,48 @@ -- * 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 , @@ -97,6 +107,10 @@ 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 + noDBusInterfaceInfo :: Maybe DBusInterfaceInfo noDBusInterfaceInfo = Nothing @@ -141,9 +155,8 @@ -- method DBusInterfaceInfo::cache_build -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -155,19 +168,22 @@ dBusInterfaceInfoCacheBuild :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -179,19 +195,22 @@ dBusInterfaceInfoCacheRelease :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -205,22 +224,25 @@ dBusInterfaceInfoGenerateXml :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - Word32 -> -- indent - m (GLib.String) + DBusInterfaceInfo -- _obj + -> Word32 -- indent + -> m (GLib.String) -- result dBusInterfaceInfoGenerateXml _obj indent = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - string_builder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) - g_dbus_interface_info_generate_xml _obj' indent string_builder - string_builder' <- (wrapBoxed GLib.String) string_builder + stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) + g_dbus_interface_info_generate_xml _obj' indent stringBuilder + stringBuilder' <- (wrapBoxed GLib.String) stringBuilder touchManagedPtr _obj - return string_builder' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMethodInfo" -- throws : False -- Skip return : False @@ -233,9 +255,9 @@ dBusInterfaceInfoLookupMethod :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - T.Text -> -- name - m DBusMethodInfo + DBusInterfaceInfo -- _obj + -> T.Text -- name + -> m DBusMethodInfo -- result dBusInterfaceInfoLookupMethod _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -246,11 +268,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusPropertyInfo" -- throws : False -- Skip return : False @@ -263,9 +288,9 @@ dBusInterfaceInfoLookupProperty :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - T.Text -> -- name - m DBusPropertyInfo + DBusInterfaceInfo -- _obj + -> T.Text -- name + -> m DBusPropertyInfo -- result dBusInterfaceInfoLookupProperty _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -276,11 +301,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusSignalInfo" -- throws : False -- Skip return : False @@ -293,9 +321,9 @@ dBusInterfaceInfoLookupSignal :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - T.Text -> -- name - m DBusSignalInfo + DBusInterfaceInfo -- _obj + -> T.Text -- name + -> m DBusSignalInfo -- result dBusInterfaceInfoLookupSignal _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -306,11 +334,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceInfo" -- throws : False -- Skip return : False @@ -322,8 +353,8 @@ dBusInterfaceInfoRef :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - m DBusInterfaceInfo + DBusInterfaceInfo -- _obj + -> m DBusInterfaceInfo -- result dBusInterfaceInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_interface_info_ref _obj' @@ -332,11 +363,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -348,12 +382,35 @@ dBusInterfaceInfoUnref :: (MonadIO m) => - DBusInterfaceInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusInterfaceInfo.hs-boot +++ b/GI/Gio/Structs/DBusInterfaceInfo.hs-boot @@ -9,3 +9,11 @@ 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 --- a/GI/Gio/Structs/DBusInterfaceVTable.hs +++ b/GI/Gio/Structs/DBusInterfaceVTable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -52,6 +53,7 @@ -- * Exported types DBusInterfaceVTable(..) , + newZeroDBusInterfaceVTable , noDBusInterfaceVTable , @@ -68,6 +70,10 @@ import GI.Gio.Callbacks newtype DBusInterfaceVTable = DBusInterfaceVTable (ForeignPtr DBusInterfaceVTable) +-- | Construct a `DBusInterfaceVTable` struct initialized to zero. +newZeroDBusInterfaceVTable :: MonadIO m => m DBusInterfaceVTable +newZeroDBusInterfaceVTable = liftIO $ callocBytes 88 >>= wrapPtr DBusInterfaceVTable + noDBusInterfaceVTable :: Maybe DBusInterfaceVTable noDBusInterfaceVTable = Nothing @@ -76,5 +82,16 @@ -- XXX Skipped getter for "DBusInterfaceVTable:get_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet" -- XXX Skipped getter for "DBusInterfaceVTable:set_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +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/DBusMethodInfo.hs b/GI/Gio/Structs/DBusMethodInfo.hs --- a/GI/Gio/Structs/DBusMethodInfo.hs +++ b/GI/Gio/Structs/DBusMethodInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,18 @@ -- * Exported types DBusMethodInfo(..) , + newZeroDBusMethodInfo , noDBusMethodInfo , -- * Methods -- ** dBusMethodInfoRef + DBusMethodInfoRefMethodInfo , dBusMethodInfoRef , -- ** dBusMethodInfoUnref + DBusMethodInfoUnrefMethodInfo , dBusMethodInfoUnref , @@ -68,6 +72,10 @@ 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 + noDBusMethodInfo :: Maybe DBusMethodInfo noDBusMethodInfo = Nothing @@ -105,9 +113,8 @@ -- method DBusMethodInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusMethodInfo" -- throws : False -- Skip return : False @@ -119,8 +126,8 @@ dBusMethodInfoRef :: (MonadIO m) => - DBusMethodInfo -> -- _obj - m DBusMethodInfo + DBusMethodInfo -- _obj + -> m DBusMethodInfo -- result dBusMethodInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_method_info_ref _obj' @@ -129,11 +136,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -145,12 +155,29 @@ dBusMethodInfoUnref :: (MonadIO m) => - DBusMethodInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusMethodInfo.hs-boot +++ b/GI/Gio/Structs/DBusMethodInfo.hs-boot @@ -9,3 +9,5 @@ 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 --- a/GI/Gio/Structs/DBusNodeInfo.hs +++ b/GI/Gio/Structs/DBusNodeInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,18 @@ -- * Exported types DBusNodeInfo(..) , + newZeroDBusNodeInfo , noDBusNodeInfo , -- * Methods -- ** dBusNodeInfoGenerateXml + DBusNodeInfoGenerateXmlMethodInfo , dBusNodeInfoGenerateXml , -- ** dBusNodeInfoLookupInterface + DBusNodeInfoLookupInterfaceMethodInfo , dBusNodeInfoLookupInterface , @@ -29,10 +33,12 @@ -- ** dBusNodeInfoRef + DBusNodeInfoRefMethodInfo , dBusNodeInfoRef , -- ** dBusNodeInfoUnref + DBusNodeInfoUnrefMethodInfo , dBusNodeInfoUnref , @@ -81,6 +87,10 @@ 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 + noDBusNodeInfo :: Maybe DBusNodeInfo noDBusNodeInfo = Nothing @@ -118,9 +128,8 @@ -- method DBusNodeInfo::new_for_xml -- method type : Constructor --- Args : [Arg {argName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusNodeInfo" -- throws : True -- Skip return : False @@ -133,25 +142,24 @@ dBusNodeInfoNewForXml :: (MonadIO m) => - T.Text -> -- xml_data - m DBusNodeInfo -dBusNodeInfoNewForXml xml_data = liftIO $ do - xml_data' <- textToCString xml_data + T.Text -- xmlData + -> m DBusNodeInfo -- result +dBusNodeInfoNewForXml xmlData = liftIO $ do + xmlData' <- textToCString xmlData onException (do - result <- propagateGError $ g_dbus_node_info_new_for_xml xml_data' + result <- propagateGError $ g_dbus_node_info_new_for_xml xmlData' checkUnexpectedReturnNULL "g_dbus_node_info_new_for_xml" result result' <- (wrapBoxed DBusNodeInfo) result - freeMem xml_data' + freeMem xmlData' return result' ) (do - freeMem xml_data' + freeMem xmlData' ) -- method DBusNodeInfo::generate_xml -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TUInt32, 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -165,22 +173,25 @@ dBusNodeInfoGenerateXml :: (MonadIO m) => - DBusNodeInfo -> -- _obj - Word32 -> -- indent - m (GLib.String) + DBusNodeInfo -- _obj + -> Word32 -- indent + -> m (GLib.String) -- result dBusNodeInfoGenerateXml _obj indent = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - string_builder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) - g_dbus_node_info_generate_xml _obj' indent string_builder - string_builder' <- (wrapBoxed GLib.String) string_builder + stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) + g_dbus_node_info_generate_xml _obj' indent stringBuilder + stringBuilder' <- (wrapBoxed GLib.String) stringBuilder touchManagedPtr _obj - return string_builder' + 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 {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusInterfaceInfo" -- throws : False -- Skip return : False @@ -193,9 +204,9 @@ dBusNodeInfoLookupInterface :: (MonadIO m) => - DBusNodeInfo -> -- _obj - T.Text -> -- name - m DBusInterfaceInfo + DBusNodeInfo -- _obj + -> T.Text -- name + -> m DBusInterfaceInfo -- result dBusNodeInfoLookupInterface _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -206,11 +217,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusNodeInfo" -- throws : False -- Skip return : False @@ -222,8 +236,8 @@ dBusNodeInfoRef :: (MonadIO m) => - DBusNodeInfo -> -- _obj - m DBusNodeInfo + DBusNodeInfo -- _obj + -> m DBusNodeInfo -- result dBusNodeInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_node_info_ref _obj' @@ -232,11 +246,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -248,12 +265,31 @@ dBusNodeInfoUnref :: (MonadIO m) => - DBusNodeInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusNodeInfo.hs-boot +++ b/GI/Gio/Structs/DBusNodeInfo.hs-boot @@ -9,3 +9,7 @@ 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 --- a/GI/Gio/Structs/DBusPropertyInfo.hs +++ b/GI/Gio/Structs/DBusPropertyInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,18 @@ -- * Exported types DBusPropertyInfo(..) , + newZeroDBusPropertyInfo , noDBusPropertyInfo , -- * Methods -- ** dBusPropertyInfoRef + DBusPropertyInfoRefMethodInfo , dBusPropertyInfoRef , -- ** dBusPropertyInfoUnref + DBusPropertyInfoUnrefMethodInfo , dBusPropertyInfoUnref , @@ -68,6 +72,10 @@ 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 + noDBusPropertyInfo :: Maybe DBusPropertyInfo noDBusPropertyInfo = Nothing @@ -103,9 +111,8 @@ -- method DBusPropertyInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusPropertyInfo" -- throws : False -- Skip return : False @@ -117,8 +124,8 @@ dBusPropertyInfoRef :: (MonadIO m) => - DBusPropertyInfo -> -- _obj - m DBusPropertyInfo + DBusPropertyInfo -- _obj + -> m DBusPropertyInfo -- result dBusPropertyInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_property_info_ref _obj' @@ -127,11 +134,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -143,12 +153,29 @@ dBusPropertyInfoUnref :: (MonadIO m) => - DBusPropertyInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusPropertyInfo.hs-boot +++ b/GI/Gio/Structs/DBusPropertyInfo.hs-boot @@ -9,3 +9,5 @@ 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 --- a/GI/Gio/Structs/DBusSignalInfo.hs +++ b/GI/Gio/Structs/DBusSignalInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,15 +13,18 @@ -- * Exported types DBusSignalInfo(..) , + newZeroDBusSignalInfo , noDBusSignalInfo , -- * Methods -- ** dBusSignalInfoRef + DBusSignalInfoRefMethodInfo , dBusSignalInfoRef , -- ** dBusSignalInfoUnref + DBusSignalInfoUnrefMethodInfo , dBusSignalInfoUnref , @@ -64,6 +68,10 @@ 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 + noDBusSignalInfo :: Maybe DBusSignalInfo noDBusSignalInfo = Nothing @@ -94,9 +102,8 @@ -- method DBusSignalInfo::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "DBusSignalInfo" -- throws : False -- Skip return : False @@ -108,8 +115,8 @@ dBusSignalInfoRef :: (MonadIO m) => - DBusSignalInfo -> -- _obj - m DBusSignalInfo + DBusSignalInfo -- _obj + -> m DBusSignalInfo -- result dBusSignalInfoRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_dbus_signal_info_ref _obj' @@ -118,11 +125,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -134,12 +144,29 @@ dBusSignalInfoUnref :: (MonadIO m) => - DBusSignalInfo -> -- _obj - 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 --- a/GI/Gio/Structs/DBusSignalInfo.hs-boot +++ b/GI/Gio/Structs/DBusSignalInfo.hs-boot @@ -9,3 +9,5 @@ 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 --- a/GI/Gio/Structs/DBusSubtreeVTable.hs +++ b/GI/Gio/Structs/DBusSubtreeVTable.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,6 +13,7 @@ -- * Exported types DBusSubtreeVTable(..) , + newZeroDBusSubtreeVTable , noDBusSubtreeVTable , @@ -28,11 +30,26 @@ import GI.Gio.Callbacks newtype DBusSubtreeVTable = DBusSubtreeVTable (ForeignPtr DBusSubtreeVTable) +-- | Construct a `DBusSubtreeVTable` struct initialized to zero. +newZeroDBusSubtreeVTable :: MonadIO m => m DBusSubtreeVTable +newZeroDBusSubtreeVTable = liftIO $ callocBytes 88 >>= wrapPtr DBusSubtreeVTable + noDBusSubtreeVTable :: Maybe DBusSubtreeVTable noDBusSubtreeVTable = Nothing -- XXX Skipped getter for "DBusSubtreeVTable:introspect" :: Not implemented: "Wrapping foreign callbacks is not supported yet" -- XXX Skipped getter for "DBusSubtreeVTable:dispatch" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +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/FileAttributeInfo.hs b/GI/Gio/Structs/FileAttributeInfo.hs --- a/GI/Gio/Structs/FileAttributeInfo.hs +++ b/GI/Gio/Structs/FileAttributeInfo.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -12,6 +13,7 @@ -- * Exported types FileAttributeInfo(..) , + newZeroFileAttributeInfo , noFileAttributeInfo , @@ -43,6 +45,10 @@ import GI.Gio.Callbacks newtype FileAttributeInfo = FileAttributeInfo (ForeignPtr FileAttributeInfo) +-- | Construct a `FileAttributeInfo` struct initialized to zero. +newZeroFileAttributeInfo :: MonadIO m => m FileAttributeInfo +newZeroFileAttributeInfo = liftIO $ callocBytes 16 >>= wrapPtr FileAttributeInfo + noFileAttributeInfo :: Maybe FileAttributeInfo noFileAttributeInfo = Nothing @@ -63,5 +69,16 @@ val <- peek (ptr `plusPtr` 12) :: IO CUInt let val' = wordToGFlags val return val' + +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/FileAttributeInfoList.hs b/GI/Gio/Structs/FileAttributeInfoList.hs --- a/GI/Gio/Structs/FileAttributeInfoList.hs +++ b/GI/Gio/Structs/FileAttributeInfoList.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,19 +14,23 @@ -- * Exported types FileAttributeInfoList(..) , + newZeroFileAttributeInfoList , noFileAttributeInfoList , -- * Methods -- ** fileAttributeInfoListAdd + FileAttributeInfoListAddMethodInfo , fileAttributeInfoListAdd , -- ** fileAttributeInfoListDup + FileAttributeInfoListDupMethodInfo , fileAttributeInfoListDup , -- ** fileAttributeInfoListLookup + FileAttributeInfoListLookupMethodInfo , fileAttributeInfoListLookup , @@ -34,10 +39,12 @@ -- ** fileAttributeInfoListRef + FileAttributeInfoListRefMethodInfo , fileAttributeInfoListRef , -- ** fileAttributeInfoListUnref + FileAttributeInfoListUnrefMethodInfo , fileAttributeInfoListUnref , @@ -73,6 +80,10 @@ 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 + noFileAttributeInfoList :: Maybe FileAttributeInfoList noFileAttributeInfoList = Nothing @@ -91,7 +102,6 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "Gio" "FileAttributeInfoList" -- throws : False -- Skip return : False @@ -102,7 +112,7 @@ fileAttributeInfoListNew :: (MonadIO m) => - m FileAttributeInfoList + m FileAttributeInfoList -- result fileAttributeInfoListNew = liftIO $ do result <- g_file_attribute_info_list_new checkUnexpectedReturnNULL "g_file_attribute_info_list_new" result @@ -111,9 +121,8 @@ -- method FileAttributeInfoList::add -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileAttributeInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "FileAttributeInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -128,11 +137,11 @@ fileAttributeInfoListAdd :: (MonadIO m) => - FileAttributeInfoList -> -- _obj - T.Text -> -- name - FileAttributeType -> -- type - [FileAttributeInfoFlags] -> -- flags - 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 @@ -143,11 +152,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeInfoList" -- throws : False -- Skip return : False @@ -159,8 +171,8 @@ fileAttributeInfoListDup :: (MonadIO m) => - FileAttributeInfoList -> -- _obj - m FileAttributeInfoList + FileAttributeInfoList -- _obj + -> m FileAttributeInfoList -- result fileAttributeInfoListDup _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_file_attribute_info_list_dup _obj' @@ -169,11 +181,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeInfo" -- throws : False -- Skip return : False @@ -186,9 +201,9 @@ fileAttributeInfoListLookup :: (MonadIO m) => - FileAttributeInfoList -> -- _obj - T.Text -> -- name - m FileAttributeInfo + FileAttributeInfoList -- _obj + -> T.Text -- name + -> m FileAttributeInfo -- result fileAttributeInfoListLookup _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -199,11 +214,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeInfoList" -- throws : False -- Skip return : False @@ -215,8 +233,8 @@ fileAttributeInfoListRef :: (MonadIO m) => - FileAttributeInfoList -> -- _obj - m FileAttributeInfoList + FileAttributeInfoList -- _obj + -> m FileAttributeInfoList -- result fileAttributeInfoListRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_file_attribute_info_list_ref _obj' @@ -225,11 +243,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -241,12 +262,32 @@ fileAttributeInfoListUnref :: (MonadIO m) => - FileAttributeInfoList -> -- _obj - 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 --- a/GI/Gio/Structs/FileAttributeInfoList.hs-boot +++ b/GI/Gio/Structs/FileAttributeInfoList.hs-boot @@ -9,3 +9,8 @@ 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 --- a/GI/Gio/Structs/FileAttributeMatcher.hs +++ b/GI/Gio/Structs/FileAttributeMatcher.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** fileAttributeMatcherEnumerateNamespace + FileAttributeMatcherEnumerateNamespaceMethodInfo, fileAttributeMatcherEnumerateNamespace , -- ** fileAttributeMatcherEnumerateNext + FileAttributeMatcherEnumerateNextMethodInfo, fileAttributeMatcherEnumerateNext , -- ** fileAttributeMatcherMatches + FileAttributeMatcherMatchesMethodInfo , fileAttributeMatcherMatches , -- ** fileAttributeMatcherMatchesOnly + FileAttributeMatcherMatchesOnlyMethodInfo, fileAttributeMatcherMatchesOnly , @@ -37,18 +42,22 @@ -- ** fileAttributeMatcherRef + FileAttributeMatcherRefMethodInfo , fileAttributeMatcherRef , -- ** fileAttributeMatcherSubtract + FileAttributeMatcherSubtractMethodInfo , fileAttributeMatcherSubtract , -- ** fileAttributeMatcherToString + FileAttributeMatcherToStringMethodInfo , fileAttributeMatcherToString , -- ** fileAttributeMatcherUnref + FileAttributeMatcherUnrefMethodInfo , fileAttributeMatcherUnref , @@ -78,9 +87,8 @@ -- method FileAttributeMatcher::new -- method type : Constructor --- Args : [Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeMatcher" -- throws : False -- Skip return : False @@ -92,8 +100,8 @@ fileAttributeMatcherNew :: (MonadIO m) => - T.Text -> -- attributes - m FileAttributeMatcher + T.Text -- attributes + -> m FileAttributeMatcher -- result fileAttributeMatcherNew attributes = liftIO $ do attributes' <- textToCString attributes result <- g_file_attribute_matcher_new attributes' @@ -104,9 +112,8 @@ -- method FileAttributeMatcher::enumerate_namespace -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ns", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ns", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -119,9 +126,9 @@ fileAttributeMatcherEnumerateNamespace :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - T.Text -> -- ns - m Bool + FileAttributeMatcher -- _obj + -> T.Text -- ns + -> m Bool -- result fileAttributeMatcherEnumerateNamespace _obj ns = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj ns' <- textToCString ns @@ -131,11 +138,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -147,8 +157,8 @@ fileAttributeMatcherEnumerateNext :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - m T.Text + FileAttributeMatcher -- _obj + -> m T.Text -- result fileAttributeMatcherEnumerateNext _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_file_attribute_matcher_enumerate_next _obj' @@ -157,11 +167,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -174,9 +187,9 @@ fileAttributeMatcherMatches :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - T.Text -> -- attribute - m Bool + FileAttributeMatcher -- _obj + -> T.Text -- attribute + -> m Bool -- result fileAttributeMatcherMatches _obj attribute = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj attribute' <- textToCString attribute @@ -186,11 +199,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -203,9 +219,9 @@ fileAttributeMatcherMatchesOnly :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - T.Text -> -- attribute - m Bool + FileAttributeMatcher -- _obj + -> T.Text -- attribute + -> m Bool -- result fileAttributeMatcherMatchesOnly _obj attribute = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj attribute' <- textToCString attribute @@ -215,11 +231,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeMatcher" -- throws : False -- Skip return : False @@ -231,8 +250,8 @@ fileAttributeMatcherRef :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - m FileAttributeMatcher + FileAttributeMatcher -- _obj + -> m FileAttributeMatcher -- result fileAttributeMatcherRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_file_attribute_matcher_ref _obj' @@ -241,11 +260,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtract", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtract", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "FileAttributeMatcher" -- throws : False -- Skip return : False @@ -258,9 +280,9 @@ fileAttributeMatcherSubtract :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - FileAttributeMatcher -> -- subtract - m FileAttributeMatcher + FileAttributeMatcher -- _obj + -> FileAttributeMatcher -- subtract + -> m FileAttributeMatcher -- result fileAttributeMatcherSubtract _obj subtract = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let subtract' = unsafeManagedPtrGetPtr subtract @@ -271,11 +293,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -287,8 +312,8 @@ fileAttributeMatcherToString :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - m T.Text + FileAttributeMatcher -- _obj + -> m T.Text -- result fileAttributeMatcherToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_file_attribute_matcher_to_string _obj' @@ -298,11 +323,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -314,12 +342,35 @@ fileAttributeMatcherUnref :: (MonadIO m) => - FileAttributeMatcher -> -- _obj - 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 --- a/GI/Gio/Structs/FileAttributeMatcher.hs-boot +++ b/GI/Gio/Structs/FileAttributeMatcher.hs-boot @@ -9,3 +9,11 @@ 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 --- a/GI/Gio/Structs/IOExtension.hs +++ b/GI/Gio/Structs/IOExtension.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -18,14 +19,17 @@ -- * Methods -- ** iOExtensionGetName + IOExtensionGetNameMethodInfo , iOExtensionGetName , -- ** iOExtensionGetPriority + IOExtensionGetPriorityMethodInfo , iOExtensionGetPriority , -- ** iOExtensionGetType + IOExtensionGetTypeMethodInfo , iOExtensionGetType , @@ -49,9 +53,8 @@ -- method IOExtension::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -63,8 +66,8 @@ iOExtensionGetName :: (MonadIO m) => - IOExtension -> -- _obj - m T.Text + IOExtension -- _obj + -> m T.Text -- result iOExtensionGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_io_extension_get_name _obj' @@ -73,11 +76,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -89,19 +95,22 @@ iOExtensionGetPriority :: (MonadIO m) => - IOExtension -> -- _obj - m Int32 + 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 {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -113,13 +122,31 @@ iOExtensionGetType :: (MonadIO m) => - IOExtension -> -- _obj - m GType + 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 --- a/GI/Gio/Structs/IOExtension.hs-boot +++ b/GI/Gio/Structs/IOExtension.hs-boot @@ -8,3 +8,6 @@ import qualified Data.Map as Map newtype IOExtension = IOExtension (ForeignPtr IOExtension) +data IOExtensionGetNameMethodInfo +data IOExtensionGetPriorityMethodInfo +data IOExtensionGetTypeMethodInfo diff --git a/GI/Gio/Structs/IOExtensionPoint.hs b/GI/Gio/Structs/IOExtensionPoint.hs --- a/GI/Gio/Structs/IOExtensionPoint.hs +++ b/GI/Gio/Structs/IOExtensionPoint.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -18,18 +19,34 @@ -- * Methods -- ** iOExtensionPointGetExtensionByName + IOExtensionPointGetExtensionByNameMethodInfo, iOExtensionPointGetExtensionByName , -- ** iOExtensionPointGetExtensions + IOExtensionPointGetExtensionsMethodInfo , iOExtensionPointGetExtensions , -- ** iOExtensionPointGetRequiredType + IOExtensionPointGetRequiredTypeMethodInfo, iOExtensionPointGetRequiredType , +-- ** iOExtensionPointImplement + iOExtensionPointImplement , + + +-- ** iOExtensionPointLookup + iOExtensionPointLookup , + + +-- ** iOExtensionPointRegister + iOExtensionPointRegister , + + -- ** iOExtensionPointSetRequiredType + IOExtensionPointSetRequiredTypeMethodInfo, iOExtensionPointSetRequiredType , @@ -53,9 +70,8 @@ -- method IOExtensionPoint::get_extension_by_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "IOExtension" -- throws : False -- Skip return : False @@ -68,9 +84,9 @@ iOExtensionPointGetExtensionByName :: (MonadIO m) => - IOExtensionPoint -> -- _obj - T.Text -> -- name - m IOExtension + IOExtensionPoint -- _obj + -> T.Text -- name + -> m IOExtension -- result iOExtensionPointGetExtensionByName _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -82,11 +98,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gio" "IOExtension") -- throws : False -- Skip return : False @@ -98,8 +117,8 @@ iOExtensionPointGetExtensions :: (MonadIO m) => - IOExtensionPoint -> -- _obj - m [IOExtension] + IOExtensionPoint -- _obj + -> m [IOExtension] -- result iOExtensionPointGetExtensions _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_io_extension_point_get_extensions _obj' @@ -110,11 +129,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TGType -- throws : False -- Skip return : False @@ -126,8 +148,8 @@ iOExtensionPointGetRequiredType :: (MonadIO m) => - IOExtensionPoint -> -- _obj - m GType + IOExtensionPoint -- _obj + -> m GType -- result iOExtensionPointGetRequiredType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_io_extension_point_get_required_type _obj' @@ -135,11 +157,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -152,14 +177,120 @@ iOExtensionPointSetRequiredType :: (MonadIO m) => - IOExtensionPoint -> -- _obj - GType -> -- type - 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : 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 TInt32 + 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 + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> IOExtension <$> newForeignPtr_ x) 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 : 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 + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> IOExtensionPoint <$> newForeignPtr_ x) 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 : 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 + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> IOExtensionPoint <$> newForeignPtr_ x) 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 --- a/GI/Gio/Structs/IOExtensionPoint.hs-boot +++ b/GI/Gio/Structs/IOExtensionPoint.hs-boot @@ -8,3 +8,7 @@ import qualified Data.Map as Map newtype IOExtensionPoint = IOExtensionPoint (ForeignPtr IOExtensionPoint) +data IOExtensionPointGetExtensionByNameMethodInfo +data IOExtensionPointGetExtensionsMethodInfo +data IOExtensionPointGetRequiredTypeMethodInfo +data IOExtensionPointSetRequiredTypeMethodInfo diff --git a/GI/Gio/Structs/IOModuleScope.hs b/GI/Gio/Structs/IOModuleScope.hs --- a/GI/Gio/Structs/IOModuleScope.hs +++ b/GI/Gio/Structs/IOModuleScope.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -21,10 +22,12 @@ -- * Methods -- ** iOModuleScopeBlock + IOModuleScopeBlockMethodInfo , iOModuleScopeBlock , -- ** iOModuleScopeFree + IOModuleScopeFreeMethodInfo , iOModuleScopeFree , @@ -48,9 +51,8 @@ -- method IOModuleScope::block -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "basename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "basename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -63,9 +65,9 @@ iOModuleScopeBlock :: (MonadIO m) => - IOModuleScope -> -- _obj - T.Text -> -- basename - m () + IOModuleScope -- _obj + -> T.Text -- basename + -> m () -- result iOModuleScopeBlock _obj basename = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj basename' <- textToCString basename @@ -74,11 +76,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -90,12 +95,29 @@ iOModuleScopeFree :: (MonadIO m) => - IOModuleScope -> -- _obj - 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 --- a/GI/Gio/Structs/IOModuleScope.hs-boot +++ b/GI/Gio/Structs/IOModuleScope.hs-boot @@ -8,3 +8,5 @@ import qualified Data.Map as Map newtype IOModuleScope = IOModuleScope (ForeignPtr IOModuleScope) +data IOModuleScopeBlockMethodInfo +data IOModuleScopeFreeMethodInfo diff --git a/GI/Gio/Structs/IOSchedulerJob.hs b/GI/Gio/Structs/IOSchedulerJob.hs --- a/GI/Gio/Structs/IOSchedulerJob.hs +++ b/GI/Gio/Structs/IOSchedulerJob.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** iOSchedulerJobSendToMainloop + IOSchedulerJobSendToMainloopMethodInfo , iOSchedulerJobSendToMainloop , -- ** iOSchedulerJobSendToMainloopAsync + IOSchedulerJobSendToMainloopAsyncMethodInfo, iOSchedulerJobSendToMainloopAsync , @@ -45,9 +48,8 @@ -- method IOSchedulerJob::send_to_mainloop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -62,24 +64,27 @@ {-# DEPRECATED iOSchedulerJobSendToMainloop ["Use g_main_context_invoke()."]#-} iOSchedulerJobSendToMainloop :: (MonadIO m) => - IOSchedulerJob -> -- _obj - GLib.SourceFunc -> -- func - m Bool + 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 user_data = castFunPtrToPtr func' + let userData = castFunPtrToPtr func' let notify = safeFreeFunPtrPtr - result <- g_io_scheduler_job_send_to_mainloop _obj' func' user_data notify + 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 {argName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -94,16 +99,33 @@ {-# DEPRECATED iOSchedulerJobSendToMainloopAsync ["Use g_main_context_invoke()."]#-} iOSchedulerJobSendToMainloopAsync :: (MonadIO m) => - IOSchedulerJob -> -- _obj - GLib.SourceFunc -> -- func - 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 user_data = castFunPtrToPtr func' + let userData = castFunPtrToPtr func' let notify = safeFreeFunPtrPtr - g_io_scheduler_job_send_to_mainloop_async _obj' func' user_data notify + 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 --- a/GI/Gio/Structs/IOSchedulerJob.hs-boot +++ b/GI/Gio/Structs/IOSchedulerJob.hs-boot @@ -8,3 +8,5 @@ import qualified Data.Map as Map newtype IOSchedulerJob = IOSchedulerJob (ForeignPtr IOSchedulerJob) +data IOSchedulerJobSendToMainloopMethodInfo +data IOSchedulerJobSendToMainloopAsyncMethodInfo diff --git a/GI/Gio/Structs/IOStreamAdapter.hs b/GI/Gio/Structs/IOStreamAdapter.hs --- a/GI/Gio/Structs/IOStreamAdapter.hs +++ b/GI/Gio/Structs/IOStreamAdapter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -28,5 +29,16 @@ newtype IOStreamAdapter = IOStreamAdapter (ForeignPtr IOStreamAdapter) noIOStreamAdapter :: Maybe IOStreamAdapter noIOStreamAdapter = Nothing + +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/InputVector.hs b/GI/Gio/Structs/InputVector.hs --- a/GI/Gio/Structs/InputVector.hs +++ b/GI/Gio/Structs/InputVector.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,6 +16,7 @@ -- * Exported types InputVector(..) , + newZeroInputVector , noInputVector , @@ -42,6 +44,10 @@ import GI.Gio.Callbacks newtype InputVector = InputVector (ForeignPtr InputVector) +-- | Construct a `InputVector` struct initialized to zero. +newZeroInputVector :: MonadIO m => m InputVector +newZeroInputVector = liftIO $ callocBytes 16 >>= wrapPtr InputVector + noInputVector :: Maybe InputVector noInputVector = Nothing @@ -54,5 +60,16 @@ inputVectorReadSize s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word64 return val + +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/NativeSocketAddress.hs b/GI/Gio/Structs/NativeSocketAddress.hs --- a/GI/Gio/Structs/NativeSocketAddress.hs +++ b/GI/Gio/Structs/NativeSocketAddress.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -30,5 +31,16 @@ newtype NativeSocketAddress = NativeSocketAddress (ForeignPtr NativeSocketAddress) noNativeSocketAddress :: Maybe NativeSocketAddress noNativeSocketAddress = Nothing + +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/OutputMessage.hs b/GI/Gio/Structs/OutputMessage.hs --- a/GI/Gio/Structs/OutputMessage.hs +++ b/GI/Gio/Structs/OutputMessage.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -18,6 +19,7 @@ -- * Exported types OutputMessage(..) , + newZeroOutputMessage , noOutputMessage , @@ -57,6 +59,10 @@ import GI.Gio.Callbacks newtype OutputMessage = OutputMessage (ForeignPtr OutputMessage) +-- | Construct a `OutputMessage` struct initialized to zero. +newZeroOutputMessage :: MonadIO m => m OutputMessage +newZeroOutputMessage = liftIO $ callocBytes 40 >>= wrapPtr OutputMessage + noOutputMessage :: Maybe OutputMessage noOutputMessage = Nothing @@ -88,5 +94,16 @@ outputMessageReadNumControlMessages s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val + +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/OutputVector.hs b/GI/Gio/Structs/OutputVector.hs --- a/GI/Gio/Structs/OutputVector.hs +++ b/GI/Gio/Structs/OutputVector.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,6 +16,7 @@ -- * Exported types OutputVector(..) , + newZeroOutputVector , noOutputVector , @@ -42,6 +44,10 @@ import GI.Gio.Callbacks newtype OutputVector = OutputVector (ForeignPtr OutputVector) +-- | Construct a `OutputVector` struct initialized to zero. +newZeroOutputVector :: MonadIO m => m OutputVector +newZeroOutputVector = liftIO $ callocBytes 16 >>= wrapPtr OutputVector + noOutputVector :: Maybe OutputVector noOutputVector = Nothing @@ -54,5 +60,16 @@ outputVectorReadSize s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word64 return val + +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/Resource.hs b/GI/Gio/Structs/Resource.hs --- a/GI/Gio/Structs/Resource.hs +++ b/GI/Gio/Structs/Resource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -102,14 +103,21 @@ -- * Methods -- ** resourceEnumerateChildren + ResourceEnumerateChildrenMethodInfo , resourceEnumerateChildren , -- ** resourceGetInfo + ResourceGetInfoMethodInfo , resourceGetInfo , +-- ** resourceLoad + resourceLoad , + + -- ** resourceLookupData + ResourceLookupDataMethodInfo , resourceLookupData , @@ -118,14 +126,17 @@ -- ** resourceOpenStream + ResourceOpenStreamMethodInfo , resourceOpenStream , -- ** resourceRef + ResourceRefMethodInfo , resourceRef , -- ** resourceUnref + ResourceUnrefMethodInfo , resourceUnref , @@ -156,9 +167,8 @@ -- method Resource::new_from_data -- method type : Constructor --- Args : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Resource" -- throws : True -- Skip return : False @@ -171,8 +181,8 @@ resourceNewFromData :: (MonadIO m) => - GLib.Bytes -> -- data - m Resource + GLib.Bytes -- data_ + -> m Resource -- result resourceNewFromData data_ = liftIO $ do let data_' = unsafeManagedPtrGetPtr data_ onException (do @@ -187,9 +197,8 @@ -- method Resource::enumerate_children -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : True -- Skip return : False @@ -204,16 +213,16 @@ resourceEnumerateChildren :: (MonadIO m) => - Resource -> -- _obj - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m [T.Text] -resourceEnumerateChildren _obj path lookup_flags = liftIO $ do + 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 lookup_flags' = gflagsToWord lookup_flags + let lookupFlags' = gflagsToWord lookupFlags onException (do - result <- propagateGError $ g_resource_enumerate_children _obj' path' lookup_flags' + result <- propagateGError $ g_resource_enumerate_children _obj' path' lookupFlags' checkUnexpectedReturnNULL "g_resource_enumerate_children" result result' <- unpackZeroTerminatedUTF8CArray result mapZeroTerminatedCArray freeMem result @@ -225,11 +234,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -246,18 +258,18 @@ resourceGetInfo :: (MonadIO m) => - Resource -> -- _obj - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m (Word64,Word32) -resourceGetInfo _obj path lookup_flags = liftIO $ do + 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 lookup_flags' = gflagsToWord lookup_flags + let lookupFlags' = gflagsToWord lookupFlags size <- allocMem :: IO (Ptr Word64) flags <- allocMem :: IO (Ptr Word32) onException (do - _ <- propagateGError $ g_resource_get_info _obj' path' lookup_flags' size flags + _ <- propagateGError $ g_resource_get_info _obj' path' lookupFlags' size flags size' <- peek size flags' <- peek flags touchManagedPtr _obj @@ -271,11 +283,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Bytes" -- throws : True -- Skip return : False @@ -290,16 +305,16 @@ resourceLookupData :: (MonadIO m) => - Resource -> -- _obj - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m GLib.Bytes -resourceLookupData _obj path lookup_flags = liftIO $ do + 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 lookup_flags' = gflagsToWord lookup_flags + let lookupFlags' = gflagsToWord lookupFlags onException (do - result <- propagateGError $ g_resource_lookup_data _obj' path' lookup_flags' + result <- propagateGError $ g_resource_lookup_data _obj' path' lookupFlags' checkUnexpectedReturnNULL "g_resource_lookup_data" result result' <- (wrapBoxed GLib.Bytes) result touchManagedPtr _obj @@ -309,11 +324,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "InputStream" -- throws : True -- Skip return : False @@ -328,16 +346,16 @@ resourceOpenStream :: (MonadIO m) => - Resource -> -- _obj - T.Text -> -- path - [ResourceLookupFlags] -> -- lookup_flags - m InputStream -resourceOpenStream _obj path lookup_flags = liftIO $ do + Resource -- _obj + -> T.Text -- path + -> [ResourceLookupFlags] -- lookupFlags + -> m InputStream -- result +resourceOpenStream _obj path lookupFlags = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj path' <- textToCString path - let lookup_flags' = gflagsToWord lookup_flags + let lookupFlags' = gflagsToWord lookupFlags onException (do - result <- propagateGError $ g_resource_open_stream _obj' path' lookup_flags' + result <- propagateGError $ g_resource_open_stream _obj' path' lookupFlags' checkUnexpectedReturnNULL "g_resource_open_stream" result result' <- (wrapObject InputStream) result touchManagedPtr _obj @@ -347,11 +365,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Resource" -- throws : False -- Skip return : False @@ -363,8 +384,8 @@ resourceRef :: (MonadIO m) => - Resource -> -- _obj - m Resource + Resource -- _obj + -> m Resource -- result resourceRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_resource_ref _obj' @@ -373,11 +394,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -389,12 +413,63 @@ resourceUnref :: (MonadIO m) => - Resource -> -- _obj - 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 : 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 --- a/GI/Gio/Structs/Resource.hs-boot +++ b/GI/Gio/Structs/Resource.hs-boot @@ -9,3 +9,9 @@ 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 --- a/GI/Gio/Structs/SettingsBackend.hs +++ b/GI/Gio/Structs/SettingsBackend.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -53,5 +54,16 @@ newtype SettingsBackend = SettingsBackend (ForeignPtr SettingsBackend) noSettingsBackend :: Maybe SettingsBackend noSettingsBackend = Nothing + +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/SettingsSchema.hs b/GI/Gio/Structs/SettingsSchema.hs --- a/GI/Gio/Structs/SettingsSchema.hs +++ b/GI/Gio/Structs/SettingsSchema.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -106,34 +107,42 @@ -- * 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 , @@ -163,9 +172,8 @@ -- method SettingsSchema::get_id -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -177,8 +185,8 @@ settingsSchemaGetId :: (MonadIO m) => - SettingsSchema -> -- _obj - m T.Text + SettingsSchema -- _obj + -> m T.Text -- result settingsSchemaGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_get_id _obj' @@ -187,11 +195,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchemaKey" -- throws : False -- Skip return : False @@ -204,9 +215,9 @@ settingsSchemaGetKey :: (MonadIO m) => - SettingsSchema -> -- _obj - T.Text -> -- name - m SettingsSchemaKey + SettingsSchema -- _obj + -> T.Text -- name + -> m SettingsSchemaKey -- result settingsSchemaGetKey _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -217,11 +228,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -233,8 +247,8 @@ settingsSchemaGetPath :: (MonadIO m) => - SettingsSchema -> -- _obj - m T.Text + SettingsSchema -- _obj + -> m T.Text -- result settingsSchemaGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_get_path _obj' @@ -243,11 +257,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -260,9 +277,9 @@ settingsSchemaHasKey :: (MonadIO m) => - SettingsSchema -> -- _obj - T.Text -> -- name - m Bool + SettingsSchema -- _obj + -> T.Text -- name + -> m Bool -- result settingsSchemaHasKey _obj name = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name @@ -272,11 +289,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -288,8 +308,8 @@ settingsSchemaListChildren :: (MonadIO m) => - SettingsSchema -> -- _obj - m [T.Text] + SettingsSchema -- _obj + -> m [T.Text] -- result settingsSchemaListChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_list_children _obj' @@ -300,11 +320,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -316,8 +339,8 @@ settingsSchemaListKeys :: (MonadIO m) => - SettingsSchema -> -- _obj - m [T.Text] + SettingsSchema -- _obj + -> m [T.Text] -- result settingsSchemaListKeys _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_list_keys _obj' @@ -328,11 +351,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchema" -- throws : False -- Skip return : False @@ -344,8 +370,8 @@ settingsSchemaRef :: (MonadIO m) => - SettingsSchema -> -- _obj - m SettingsSchema + SettingsSchema -- _obj + -> m SettingsSchema -- result settingsSchemaRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_ref _obj' @@ -354,11 +380,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -370,12 +399,35 @@ settingsSchemaUnref :: (MonadIO m) => - SettingsSchema -> -- _obj - 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 --- a/GI/Gio/Structs/SettingsSchema.hs-boot +++ b/GI/Gio/Structs/SettingsSchema.hs-boot @@ -9,3 +9,11 @@ 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 --- a/GI/Gio/Structs/SettingsSchemaKey.hs +++ b/GI/Gio/Structs/SettingsSchemaKey.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -18,38 +19,47 @@ -- * 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 , @@ -80,9 +90,8 @@ -- method SettingsSchemaKey::get_default_value -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -94,8 +103,8 @@ settingsSchemaKeyGetDefaultValue :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m GVariant + SettingsSchemaKey -- _obj + -> m GVariant -- result settingsSchemaKeyGetDefaultValue _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_default_value _obj' @@ -104,11 +113,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -120,8 +132,8 @@ settingsSchemaKeyGetDescription :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m T.Text + SettingsSchemaKey -- _obj + -> m T.Text -- result settingsSchemaKeyGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_description _obj' @@ -130,11 +142,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -146,8 +161,8 @@ settingsSchemaKeyGetName :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m T.Text + SettingsSchemaKey -- _obj + -> m T.Text -- result settingsSchemaKeyGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_name _obj' @@ -156,11 +171,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TVariant -- throws : False -- Skip return : False @@ -172,8 +190,8 @@ settingsSchemaKeyGetRange :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m GVariant + SettingsSchemaKey -- _obj + -> m GVariant -- result settingsSchemaKeyGetRange _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_range _obj' @@ -182,11 +200,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -198,8 +219,8 @@ settingsSchemaKeyGetSummary :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m T.Text + SettingsSchemaKey -- _obj + -> m T.Text -- result settingsSchemaKeyGetSummary _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_summary _obj' @@ -208,11 +229,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "VariantType" -- throws : False -- Skip return : False @@ -224,8 +248,8 @@ settingsSchemaKeyGetValueType :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m GLib.VariantType + SettingsSchemaKey -- _obj + -> m GLib.VariantType -- result settingsSchemaKeyGetValueType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_get_value_type _obj' @@ -234,11 +258,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -251,9 +278,9 @@ settingsSchemaKeyRangeCheck :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - GVariant -> -- value - m Bool + SettingsSchemaKey -- _obj + -> GVariant -- value + -> m Bool -- result settingsSchemaKeyRangeCheck _obj value = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let value' = unsafeManagedPtrGetPtr value @@ -262,11 +289,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchemaKey" -- throws : False -- Skip return : False @@ -278,8 +308,8 @@ settingsSchemaKeyRef :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - m SettingsSchemaKey + SettingsSchemaKey -- _obj + -> m SettingsSchemaKey -- result settingsSchemaKeyRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_key_ref _obj' @@ -288,11 +318,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -304,12 +337,36 @@ settingsSchemaKeyUnref :: (MonadIO m) => - SettingsSchemaKey -> -- _obj - 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 --- a/GI/Gio/Structs/SettingsSchemaKey.hs-boot +++ b/GI/Gio/Structs/SettingsSchemaKey.hs-boot @@ -9,3 +9,12 @@ 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 --- a/GI/Gio/Structs/SettingsSchemaSource.hs +++ b/GI/Gio/Structs/SettingsSchemaSource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -16,11 +17,17 @@ -- * Methods +-- ** settingsSchemaSourceGetDefault + settingsSchemaSourceGetDefault , + + -- ** settingsSchemaSourceListSchemas + SettingsSchemaSourceListSchemasMethodInfo, settingsSchemaSourceListSchemas , -- ** settingsSchemaSourceLookup + SettingsSchemaSourceLookupMethodInfo , settingsSchemaSourceLookup , @@ -29,10 +36,12 @@ -- ** settingsSchemaSourceRef + SettingsSchemaSourceRefMethodInfo , settingsSchemaSourceRef , -- ** settingsSchemaSourceUnref + SettingsSchemaSourceUnrefMethodInfo , settingsSchemaSourceUnref , @@ -62,9 +71,8 @@ -- method SettingsSchemaSource::new_from_directory -- method type : Constructor --- Args : [Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchemaSource" -- throws : True -- Skip return : False @@ -79,10 +87,10 @@ settingsSchemaSourceNewFromDirectory :: (MonadIO m) => - T.Text -> -- directory - Maybe (SettingsSchemaSource) -> -- parent - Bool -> -- trusted - m SettingsSchemaSource + T.Text -- directory + -> Maybe (SettingsSchemaSource) -- parent + -> Bool -- trusted + -> m SettingsSchemaSource -- result settingsSchemaSourceNewFromDirectory directory parent trusted = liftIO $ do directory' <- textToCString directory maybeParent <- case parent of @@ -104,9 +112,8 @@ -- method SettingsSchemaSource::list_schemas -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -121,33 +128,36 @@ settingsSchemaSourceListSchemas :: (MonadIO m) => - SettingsSchemaSource -> -- _obj - Bool -> -- recursive - m ([T.Text],[T.Text]) + SettingsSchemaSource -- _obj + -> Bool -- recursive + -> m ([T.Text],[T.Text]) -- result settingsSchemaSourceListSchemas _obj recursive = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let recursive' = (fromIntegral . fromEnum) recursive - non_relocatable <- allocMem :: IO (Ptr (Ptr CString)) + nonRelocatable <- allocMem :: IO (Ptr (Ptr CString)) relocatable <- allocMem :: IO (Ptr (Ptr CString)) - g_settings_schema_source_list_schemas _obj' recursive' non_relocatable relocatable - non_relocatable' <- peek non_relocatable - non_relocatable'' <- unpackZeroTerminatedUTF8CArray non_relocatable' - mapZeroTerminatedCArray freeMem non_relocatable' - freeMem non_relocatable' + 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 non_relocatable + freeMem nonRelocatable freeMem relocatable - return (non_relocatable'', 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchema" -- throws : False -- Skip return : False @@ -161,26 +171,29 @@ settingsSchemaSourceLookup :: (MonadIO m) => - SettingsSchemaSource -> -- _obj - T.Text -> -- schema_id - Bool -> -- recursive - m SettingsSchema -settingsSchemaSourceLookup _obj schema_id recursive = liftIO $ do + SettingsSchemaSource -- _obj + -> T.Text -- schemaId + -> Bool -- recursive + -> m SettingsSchema -- result +settingsSchemaSourceLookup _obj schemaId recursive = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - schema_id' <- textToCString schema_id + schemaId' <- textToCString schemaId let recursive' = (fromIntegral . fromEnum) recursive - result <- g_settings_schema_source_lookup _obj' schema_id' recursive' + result <- g_settings_schema_source_lookup _obj' schemaId' recursive' checkUnexpectedReturnNULL "g_settings_schema_source_lookup" result result' <- (wrapBoxed SettingsSchema) result touchManagedPtr _obj - freeMem schema_id' + freeMem schemaId' return result' +data SettingsSchemaSourceLookupMethodInfo +instance (signature ~ (T.Text -> Bool -> m SettingsSchema), MonadIO m) => MethodInfo SettingsSchemaSourceLookupMethodInfo SettingsSchemaSource signature where + overloadedMethod _ = settingsSchemaSourceLookup + -- method SettingsSchemaSource::ref -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SettingsSchemaSource" -- throws : False -- Skip return : False @@ -192,8 +205,8 @@ settingsSchemaSourceRef :: (MonadIO m) => - SettingsSchemaSource -> -- _obj - m SettingsSchemaSource + SettingsSchemaSource -- _obj + -> m SettingsSchemaSource -- result settingsSchemaSourceRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_settings_schema_source_ref _obj' @@ -202,11 +215,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -218,12 +234,52 @@ settingsSchemaSourceUnref :: (MonadIO m) => - SettingsSchemaSource -> -- _obj - 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 : 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 --- a/GI/Gio/Structs/SettingsSchemaSource.hs-boot +++ b/GI/Gio/Structs/SettingsSchemaSource.hs-boot @@ -9,3 +9,7 @@ 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 --- a/GI/Gio/Structs/SrvTarget.hs +++ b/GI/Gio/Structs/SrvTarget.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -30,26 +31,32 @@ -- * Methods -- ** srvTargetCopy + SrvTargetCopyMethodInfo , srvTargetCopy , -- ** srvTargetFree + SrvTargetFreeMethodInfo , srvTargetFree , -- ** srvTargetGetHostname + SrvTargetGetHostnameMethodInfo , srvTargetGetHostname , -- ** srvTargetGetPort + SrvTargetGetPortMethodInfo , srvTargetGetPort , -- ** srvTargetGetPriority + SrvTargetGetPriorityMethodInfo , srvTargetGetPriority , -- ** srvTargetGetWeight + SrvTargetGetWeightMethodInfo , srvTargetGetWeight , @@ -83,9 +90,8 @@ -- method SrvTarget::new -- method type : Constructor --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SrvTarget" -- throws : False -- Skip return : False @@ -100,11 +106,11 @@ srvTargetNew :: (MonadIO m) => - T.Text -> -- hostname - Word16 -> -- port - Word16 -> -- priority - Word16 -> -- weight - m SrvTarget + 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 @@ -115,9 +121,8 @@ -- method SrvTarget::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "SrvTarget" -- throws : False -- Skip return : False @@ -129,8 +134,8 @@ srvTargetCopy :: (MonadIO m) => - SrvTarget -> -- _obj - m SrvTarget + SrvTarget -- _obj + -> m SrvTarget -- result srvTargetCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_srv_target_copy _obj' @@ -139,11 +144,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -155,19 +163,22 @@ srvTargetFree :: (MonadIO m) => - SrvTarget -> -- _obj - 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 {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -179,8 +190,8 @@ srvTargetGetHostname :: (MonadIO m) => - SrvTarget -> -- _obj - m T.Text + SrvTarget -- _obj + -> m T.Text -- result srvTargetGetHostname _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_srv_target_get_hostname _obj' @@ -189,11 +200,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -205,19 +219,22 @@ srvTargetGetPort :: (MonadIO m) => - SrvTarget -> -- _obj - m Word16 + 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 {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -229,19 +246,22 @@ srvTargetGetPriority :: (MonadIO m) => - SrvTarget -> -- _obj - m Word16 + 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 {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False @@ -253,12 +273,33 @@ srvTargetGetWeight :: (MonadIO m) => - SrvTarget -> -- _obj - m Word16 + 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 --- a/GI/Gio/Structs/SrvTarget.hs-boot +++ b/GI/Gio/Structs/SrvTarget.hs-boot @@ -9,3 +9,9 @@ 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 --- a/GI/Gio/Structs/StaticResource.hs +++ b/GI/Gio/Structs/StaticResource.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,19 +14,23 @@ -- * Exported types StaticResource(..) , + newZeroStaticResource , noStaticResource , -- * Methods -- ** staticResourceFini + StaticResourceFiniMethodInfo , staticResourceFini , -- ** staticResourceGetResource + StaticResourceGetResourceMethodInfo , staticResourceGetResource , -- ** staticResourceInit + StaticResourceInitMethodInfo , staticResourceInit , @@ -44,14 +49,17 @@ import GI.Gio.Callbacks newtype StaticResource = StaticResource (ForeignPtr StaticResource) +-- | Construct a `StaticResource` struct initialized to zero. +newZeroStaticResource :: MonadIO m => m StaticResource +newZeroStaticResource = liftIO $ callocBytes 40 >>= wrapPtr StaticResource + noStaticResource :: Maybe StaticResource noStaticResource = Nothing -- method StaticResource::fini -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -63,19 +71,22 @@ staticResourceFini :: (MonadIO m) => - StaticResource -> -- _obj - 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 {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Resource" -- throws : False -- Skip return : False @@ -87,8 +98,8 @@ staticResourceGetResource :: (MonadIO m) => - StaticResource -> -- _obj - m Resource + StaticResource -- _obj + -> m Resource -- result staticResourceGetResource _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_static_resource_get_resource _obj' @@ -97,11 +108,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -113,12 +127,30 @@ staticResourceInit :: (MonadIO m) => - StaticResource -> -- _obj - 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 --- a/GI/Gio/Structs/StaticResource.hs-boot +++ b/GI/Gio/Structs/StaticResource.hs-boot @@ -8,3 +8,6 @@ import qualified Data.Map as Map newtype StaticResource = StaticResource (ForeignPtr StaticResource) +data StaticResourceFiniMethodInfo +data StaticResourceGetResourceMethodInfo +data StaticResourceInitMethodInfo diff --git a/GI/Gio/Structs/UnixMountEntry.hs b/GI/Gio/Structs/UnixMountEntry.hs --- a/GI/Gio/Structs/UnixMountEntry.hs +++ b/GI/Gio/Structs/UnixMountEntry.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -31,5 +32,16 @@ newtype UnixMountEntry = UnixMountEntry (ForeignPtr UnixMountEntry) noUnixMountEntry :: Maybe UnixMountEntry noUnixMountEntry = Nothing + +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/UnixMountPoint.hs b/GI/Gio/Structs/UnixMountPoint.hs --- a/GI/Gio/Structs/UnixMountPoint.hs +++ b/GI/Gio/Structs/UnixMountPoint.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -18,54 +19,67 @@ -- * 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 , @@ -89,9 +103,8 @@ -- method UnixMountPoint::compare -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount2", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mount2", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -104,9 +117,9 @@ unixMountPointCompare :: (MonadIO m) => - UnixMountPoint -> -- _obj - UnixMountPoint -> -- mount2 - m Int32 + UnixMountPoint -- _obj + -> UnixMountPoint -- mount2 + -> m Int32 -- result unixMountPointCompare _obj mount2 = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let mount2' = unsafeManagedPtrGetPtr mount2 @@ -115,11 +128,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -131,19 +147,22 @@ unixMountPointFree :: (MonadIO m) => - UnixMountPoint -> -- _obj - 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -155,8 +174,8 @@ unixMountPointGetDevicePath :: (MonadIO m) => - UnixMountPoint -> -- _obj - m T.Text + UnixMountPoint -- _obj + -> m T.Text -- result unixMountPointGetDevicePath _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_get_device_path _obj' @@ -165,11 +184,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -181,8 +203,8 @@ unixMountPointGetFsType :: (MonadIO m) => - UnixMountPoint -> -- _obj - m T.Text + UnixMountPoint -- _obj + -> m T.Text -- result unixMountPointGetFsType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_get_fs_type _obj' @@ -191,11 +213,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -207,8 +232,8 @@ unixMountPointGetMountPath :: (MonadIO m) => - UnixMountPoint -> -- _obj - m T.Text + UnixMountPoint -- _obj + -> m T.Text -- result unixMountPointGetMountPath _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_get_mount_path _obj' @@ -217,11 +242,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -233,8 +261,8 @@ unixMountPointGetOptions :: (MonadIO m) => - UnixMountPoint -> -- _obj - m T.Text + UnixMountPoint -- _obj + -> m T.Text -- result unixMountPointGetOptions _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_get_options _obj' @@ -243,11 +271,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -259,8 +290,8 @@ unixMountPointGuessCanEject :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Bool + UnixMountPoint -- _obj + -> m Bool -- result unixMountPointGuessCanEject _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_guess_can_eject _obj' @@ -268,11 +299,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -284,8 +318,8 @@ unixMountPointGuessIcon :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Icon + UnixMountPoint -- _obj + -> m Icon -- result unixMountPointGuessIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_guess_icon _obj' @@ -294,11 +328,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -310,8 +347,8 @@ unixMountPointGuessName :: (MonadIO m) => - UnixMountPoint -> -- _obj - m T.Text + UnixMountPoint -- _obj + -> m T.Text -- result unixMountPointGuessName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_guess_name _obj' @@ -321,11 +358,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gio" "Icon" -- throws : False -- Skip return : False @@ -337,8 +377,8 @@ unixMountPointGuessSymbolicIcon :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Icon + UnixMountPoint -- _obj + -> m Icon -- result unixMountPointGuessSymbolicIcon _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_guess_symbolic_icon _obj' @@ -347,11 +387,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -363,8 +406,8 @@ unixMountPointIsLoopback :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Bool + UnixMountPoint -- _obj + -> m Bool -- result unixMountPointIsLoopback _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_is_loopback _obj' @@ -372,11 +415,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -388,8 +434,8 @@ unixMountPointIsReadonly :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Bool + UnixMountPoint -- _obj + -> m Bool -- result unixMountPointIsReadonly _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- g_unix_mount_point_is_readonly _obj' @@ -397,11 +443,14 @@ 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 {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -413,13 +462,41 @@ unixMountPointIsUserMountable :: (MonadIO m) => - UnixMountPoint -> -- _obj - m Bool + 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 --- a/GI/Gio/Structs/UnixMountPoint.hs-boot +++ b/GI/Gio/Structs/UnixMountPoint.hs-boot @@ -8,3 +8,16 @@ import qualified Data.Map as Map newtype UnixMountPoint = UnixMountPoint (ForeignPtr UnixMountPoint) +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.cabal b/gi-gio.cabal --- a/gi-gio.cabal +++ b/gi-gio.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gio -version: 0.2.46.12 +version: 0.2.46.13 synopsis: Gio bindings description: Bindings for Gio, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,8 +14,8 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + default-extensions: 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 @@ -197,9 +197,9 @@ GI.Gio.Structs.UnixMountPoint pkgconfig-depends: gio-2.0 >= 2.46 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-glib >= 0.2.46.12 && < 0.2.47, - gi-gobject >= 0.2.46.12 && < 0.2.47, + haskell-gi-base >= 0.13 && < 1, + gi-glib >= 0.2.46.13 && < 0.2.47, + gi-gobject >= 0.2.46.13 && < 0.2.47, bytestring >= 0.10, containers >= 0.5, text >= 1.0,